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ABSTRACT 

This  thesis  is,  in  part,  based  upon  the  work  of  Lieutenant 
Commander  Isidore  L'Artique  Tobin  III,  Supply  Corps,  United  States 
Navy,  as  set  forth  in  his  thesis:   "Management  Games  as  an  Academic 
and  Military  Instructional  Device,"  University  of  Kansas,  I965. 
This  computer  programed  simulation  is  a  departure  from  the  plans 
and  flow  charts  as  set  forth  in  his  thesis,  but  many  of  the  ideas 
developed  in  his  work  were  used  in  the  preoaration  of  this  model. 
It  would  probably  not  have  been  possible  to  complete  this  model  if 
his  work  had  not  already  been  available  to  draw  upon. 

Other  very  helpful  information  and  experience  was  received 
from  the  study  of  and  the  participation  in  the  IMAGINIT  Management 
Game  which  is  a  creative  business  decision  simulation  developed  by 
Dr.  Richard  F.  Barton,  Professor  in  the  School  of  Business, 
University  of  Kansas. 


ii 


ACKNOWLEDGMENTS 

The  author  wishes  to  sincerely  thank  Dr.  Floyd  W.  Preston  and 
Dr.  Donald  W.  Green  for  their  essential  guidance  and  personal  interest 
in  this  postgraduate  educational  experience  and  particularly  in  the 
preparation  of  this  thesis. 

The  Faculty  of  the  School  of  Business,  specifically  Dean  Wiley 
S.  Mitchell  and  Dr.  Richard  F.  Barton,  merit  the  author's  special 
thanks  for  their  very  interesting  and  able  instruction  in  an  important 
part  of  the  Petroleum  Management  program. 

The  author  also  wishes  to  note  that  participation  in  the  Naval 
Postgraduate  Educational  Program  has  directly  afforded  him  the 
opportunity  to  attempt  to  achieve  the  degree  of  Master  of  Science  in 
Petroleum  Management  by  fulfilling  the  requirements  as  set  forth  by 
the  Faculty  of  the  Graduate  School,  University  of  Kansas. 

The  final  acknowledgment  is  to  the  author's  wife  for  her  vital 
interest,  assistance,  encouragement  and  understanding  she  has  given 
during  the  course  of  instruction  at  the  University  of  Kansas  and  in 
particular  during  the  stressing  period  of  the  preparation  of  this  thesis. 

C  E.  B. 


111 


TABLE  OF  CONTENTS 

Page 

ABSTRACT ii 

ACKNOWLEDGMENTS   iii 

TABLE  OF  CONTENTS iv 

CHAPTER 

I.   INTRODUCTION 1 

Background   1 

Purpose  2 

Model  Description  3 

II.  LEASE  OWNERSHIP  DETERMINATION  6 

Lease  Bidding 6 

Lease  Reversion  and  Abandonment 13 

III.  LEASE  DEVELOPMENT  AND  PRODUCTION 18 

Labor 18 

Lease  Development 23 

Lease  Production lil 

IV.  LEASE  AND  COMPANY  ACCOUNTING hi 

Lease  Accounting hi 

Company  Accounting  60 

V.  INSTRUCTIONS  TO  CONDUCT  THE  SIMULATION Bh 

Introduction Bh 

The  Student's  Pamphlet  85 

The  Model  Administrator's  Pamphlet  96 

VI.   CONCLUSION  AND  RECOMMENDATIONS 106 

Conclusion 106 

Recommendations  106 

REFERENCES 109 

iv 


.  .       112 
LEASE  DESCRIPTIONS  

APPENDIX  A:  Flow  Charts 1^5 

.  .  •       193 
APPENDIX  B:  Computer  Program  

....      21b 

APPENDIX  C:  Program  Output  

APPENDIX  D:  Listing  of  the  Carryover  and  Decision  Decks  ...      220 

„  .  ,.  227 

APPENDIX  E:  Formula  Derivation^   


CHAPTER  I 


INTRODUCTION 


Background 
The  construction  of  any  entity,  whether  it  is  a  large  building, 
a  rocket  or  a  literary  work,  should  not  commence  until  the  necessary 
groundwork  or  foundation  has  been  prepared-.   The  groundwork  for  this 
thesis  is  begun  by  quoting  a  few  definitions  from  the  Funk  and  V/agnell 
Standard  Dictionary  of  the  English  Language.   The  first  definition  is 
of  the  work  "system"  which  is  given  as  "an  orderly  combination  or 
arrangement,  as  of  parts  or  elements,  into  a  whole;  specifically, 
such  combination  according  to  some  rational  principle."  The  next 
definition  is  of  the  word  "simulate:  and  is  stated  as  "to  assume  or 
have  the  appearence  or  form  of,  without  the  reality."  The  last  word, 
"model",  is  defined  as  "that  which  strikingly  resembles  something  else; 
an  approximate  copy  or  image."  One  might  then  define  the  simulating  or 
modeling  of  a  system  as  the  creating  of  another  orderly  arrangement  of 
parts  that  gives  the  appearence  or  image  of  the  simulated  or  modeled 
system.   This  would  not  mean  that  it  is  necessary  for  the  model  to  be 
a  physical  replica,  but  it  would  mean  that  the  new  system  should  react 
or  respond  to  the  same  stimuli  in  a  manner  similar  to  the  one  being 
modeled.  To  obtain  this  reaction  or  response  is  the  crux  of  dynamic 
real  life  system  simulation. 
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Computer  Program  Model  Building; 

Model  building  or  simulation  dates  back  before  the  days  of  the 
Egyptians.   Until  World  War  II  most  models  were  rigid  physical  replicas 
normally  on  a  smaller  scale.  During  and  after  World  War  II  it  became 
possible  to  model  dynamic  systems  of  real  life  events  without  physical 
likenesses.   This  x^as  brought  about  by  the  development  of  the  high  speed 
computer.   The  system  to  be  simulated  is  modeled  in  mathematical  equation 
form  and,  utilizing  the  theory  of  probability  and  random  selection, 
events  in  a  dynamic  system  can  be  simulated. 

The  computer  utilizes  the  mathematical  equations,  together  with 
added  data,  and  processes  a  very  large  number  of  operations  on  them  in 
a  small  amount  of  time.   This  permits  the  model  to  function  over  a  long 
period  of  simulated  time  in  a  very  short  period  of  actual  time.   Reports 
of  situation  status  or  feedback  can  also  be  obtained  and  through  analysis 
it  can  be  determined  in  what  manner  the  system  model  reacted  to  a  certain 
stimulus.   This  technique  is  particular! ly  useful  during  the  building 
phase  of  the  model. 

Use  of  Computer  Program  Models 

Computer  program  models  are  basically  used  for  two  purposes.  Cne 
purpose  is  to  discover  methods  and  means  to  improve  a  system  and  the 

other  is  to  utilize  the  model  for  training  personnel  in  becoming 
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familiar  with  the  system.   It  should  be  kept  in  mind  that  the  word 

system  has  been  used  in  a  broad  sense. 

Purpose 
This  thesis  is  the  result  of  an  attempt  to  model  a  system  which 
is  an  industry  of  independent  oil  companies.  It  is  hoped  that  the 


simulation  will  provide  a  tool  for  the  training  of  students  of  Petroleum 
Engineering  and  of  Petroleum  Management  in  the  areas  of  reservoir  engi- 
neering and  financial  management.  It  is  expected  that  the  simulation 
will  subject  the  student  to  a  real  life  situation  in  which  he  will  be 
required  to  analyze  both  engineering  and  financial  data,  make  decisions 
based  upon  the  results  of  his  analysis,  and  live  with  the  results  that 
are  reflected  by  the  grades  given  by  the  model  administrator.  It  is 
hoped  that  the  use  of  this  simulation  will  also  stimulate  the  student's 
desire  to  obtain  a  more  thorough  knowledge  of  his  speciality  area  than 
if  the  simulation  had  not  been  used.   This  stimulation  might  be  accom- 
plished by  the  gaming  aspect  of  the  model  and  the  creation  of  a  compe- 
titive atmosphere  by  the  model  administrator. 

Model  Description 

General 

The  model  is  generally  divided  into  three  parts:   lease  owner- 
ship  determination,  lease  development  and  production,  and  lease  and 
company  accounting.   The  first  part,  lease  ownership  determination, 
resolves  which  of  the  companies  have  purchased  leases,  which  of  the 
companies  have  sold  leases  and  which  of  the  companies  have  reverted  or 
abandoned  leases.   The  second  part  processes  the  development  phase  of 
a  purchased  lease  as  to  drilling,  fracturing,  etc.  and  computes  the 
production  of  oil  and  gas  from  each  producing  lease.   The  third  part 
uses  this  output  to  calculate  dollar  amounts  and  performs  the  lease  and 
company  bookkeeping. 


Beginning  Procedure 

To  set  the  stage  for  the  detailed  description  of  the  model  as 
depicted  in  the  following  chapters,  it  is  felt  that  a  brief  description 
of  the  beginning  procedure  would  be  appropriate. 

As  presently  programed,  the  simulation  allows  a  maximum  of  five 
participating  companies.   The  students  of  a  class  are  divided  into  a 
maximum  of  five  groups  with  each  group  working  together  as  a  company. 
Each  student  is  given  a  Student's  Pamphlet  which  is  outlined  as  part 
of  Chapter  V.   The  pamphlet  contains  a  general  description  of  the  model, 
procedures  to  be  followed,  a  list  of  decisions  to  be  made,  a  set  of 
lease  descriptions,  a  set  of  engineering  study  descriptions  and  the 
format  for  the  decision  input  cards.   Each  student  is  also  given  a  list 
of  the  leases  available  for  sale,  an  initial  lease  owner's  report  and 
an  initial  income  statement  and  balance  sheet.   All  companies  start 
with  the  same  amount  of  capital  as  indicated  on  the  balance  sheet. 
The  amount  of  beginning  capital  is  at  the  discretion  of  the  model 
administrator. 

It  is  necessary  for  the  model  administrator  to  assign  various 
parameters  to  the  control  program.   These  parameters  consist  of  the 
simulated  period  length,  fines  and  penalties,  interest  on  bonds  and 
loans,  and  others.   A  list  of  these  parameters  with  some  recommended 
values  are  given  in  the  Model  Administrator's  Pamphlet  which  is  also 
outlined  in  Chapter  V. 

The  program  is  written  in  FORTRAN  IV  computor  program  language  and 
was  initially  modeled  on  an  IBM  ?0^0/70^-  Operating  System.   The  Fortran 
statements  and  the  description  of  the  variables  used  are  set  off  from  the 


text  by  dashed  lines  for  clarity.   The  text  adjacent  to  the  Fortran  state- 
ments explains  the  reasoning  used  in  writing  the  statements  as  they  are 
written  and  explains  their  purpose  in  the  program.   The  next  three 
chapters  are  written  in  this  detailed  manner  in  order  that  individuals 
who  would  like  to  understand  the  programs  calculations,  as  a  model 
administrator  or  as  a  future  developer  of  the  program,  may  thoroughly 
understand  the  methodology  and  the  rational  utilized  to  build  the  model. 


CHAPTER  II 

LEASE  OWNERSHIP  DETERMINATION 

Lease  Bidding 
The  first  part  of  the  programed  model  establishes  the  ownership 
of  the  leases.  Establishing  ownership  is  necessary  before  pursuing  the 
development  and  production  and  the  accounting  oarts  of  the  simulation 
in  order  that  each  company's  accounting  can  be  carried  out  properly 
throughout  the  rest  of  the  program. 

Competitive  Bidding 

The  lease  bidding  simulation  is  processed  as  a  closed  bid 
competitive  system  of  bidding  that  is  common  to  real  life  bidding  on 
property  and  contracts.  Leases  are  offered  for  sale  by  the  model 
administrator  as  indicated  in  the  previous  chapter.  Companies  are 
allowed  a  maximum  of  eight  leases  to  bid  on  for  each  simulated  time 
period. 

Each  company's  bid  is  read  from  two  input  cards  prepared  by 
the  company.  Since  this  is  closed  bidding  situation,  bids  of  a  company 
are  not  to  be  disclosed  to  other  comoanies. 


DO  130  I  =  1,NPLAY 

READ  (5,11)  (BID(I,J,1),  J=l,8) 

READ  (5,11)  (3ID(I,J,2),  J=l,3) 

Where:  NPLAY  =  number  of  comoanies  participating 

BID(I,J,l)  =  lease  numbers  of  leases  that  bids  are  being  made  on 
BID(I,J,2)  =  amount  of  money  bid  for  the  lease 


On  the  first  card  all  of  the  lease  numbers  of  the  leases  to  be 
bid  upon  are  punched  in  the  proper  format.   This  format  is  given  in  the 
Student's  Pamphlet  which  is  part  of  Chapter  V.   On  the  second  card  are 
listed  the  amounts  of  money  being  offered  as  a  bid  for  the  correspond- 
ing leases  on  the  first  card. 

Bids  for  Available  Leases 

The  next  operation  for  determining  lease  ownership  is  the 
picking  of  the  first  lease  available  for  sale. 


IF  (LEASS(II).GT.O)  GO  TO  200 
200  TEMP  =  LEASE(II) 

Where:   LE1SE  =  array  holding  list  of  available  leases 
TEMP  =  a  temporary  holding  space 


If  LEASE (II)  contains  a  number  other  than  zero,  the  number  is 
the  number  of  a  lease  that  is  available  for  sale.  II  will  actually  be 
the  lease  number  that  should  be  there  if  all  leases  are  available  for 
sale.   The  lease  number  is  then  converted  to  a  floating  point  variable 
and  stored  in  TEMP. 

The  program  now  checks  each  company's  bids  to  determine  if  a 
company  has  bid  and  if  the  bid  is  on  this  particular  available  lease. 


DO  201  I  =  1,NPLAY 

DO  202  J  =  1,3 

IF  (BID(I,J,1).LT.0.01)  GO  TO  202 

IF  (BID(I,J1l).EQ.TEMP.MD.NCHBCK.SQ.O)  GO  TO  22^+ 

IF  (BID(I,J,1).EQ.TSM?)  GO  TO  203 

GO  TO  202 

Where:  NCHECK  =  a  fixed  point  variable  used  to  determine  if  the  leas; 
in  question  has  been  bid  upon  by  a  previous  company 
during;  this  simulation  oeriod 
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Determination  of  a  Lease  Buyer 

If  a  company  has  not  bid  upon  the  lease,  the  program  goes  to  the 
next  company  and  repeats  the  procedure  until  all  of  the  companies'  bids 
have  been  checked.  If  one  or  more  companies  have  bid  on  the  lease,  the 
first  company's  bid  is  detected  by  NCHECK  =  0. 


22^  IF  (BIDMLN.G?.BID(I,J,2))  GO  TO  201 
H0LD2  =  BID(I,J,2) 
NEQUAL  =  1 
IDENT(L)  =  I 
NCHECK  =  1 
GO  TO  202 

Where:  HOLD  2   =  a  temporary  holding  space  for  the  bid  amount 

=  the  number  of  equal  bids  on  a  particular  lease  if  any  occur 
IDENT(L)  =  array  holding  the  identity- of  the  companies  making  equal 

bids 
BIDMIN   =  the  minimum  acceotable  bid  set  for  the  lease 


The  program  checks  to  see  if  the  bid  amount  is  larger  than  the 
minimum  bid  acceptable  for  the  lease  if  one  is  given.   If  the  bid  is  less 
than  the  minimum  bid,  the  bid  is  rejected  and  the  program  goes  on  to  the 
next  company.   If  it  is  greater  than  or  equal  to  the  minimum  bid,  the 
amount  bid  is  stored  in  the  temporary  storage  space  called  H0LD2,  NEQUAL 
is  set  equal  to  one,  the  first  storage  space  in  the  identification  array 
is  set  equal  to  the  company  number  making  the  bid,  and  NCHECK  is  set  equal 
to  one. 

The  program  now  proceeds  to  check  the  remaining  companies'  bids 
to  determine  if  they  have  bid  on  the  lease.   If  any  other  companies  have, 
the  program  picks  out  the  highest  bid. 
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203  IF  (BID(I,J,2).GT.H0LD2)  GO  TO  206 
IF  (BID(I,J,2).NE.HCLD2)  GO  TO  201 
NEQUAL  =  NEQUAL  +  11 
IDENT (NEQUAL)  =  I 
GO  TO  201 


The  first  statement  tests  to  detect  if  the  new  bid  is  greater 
than  the  previous  bid  made  on  the  lease  in  question.  If  it  is,  the 
previous  bid  is  replaced  by  the  new  bid.   The  new  bid  is  disregarded 
if  it  is  less  than  the  previous  bid.  If  the  new  bid  is  equal  to  the 
previous  bid,  in  the  third  statement  one  is  added  to  NEQUAL  to  indicate 
that  two  companies  have  bid  equally  on  the  same  lease  and  in  the  fourth 
statement  the  identity  of  the  bidding  company  is  stored  in  the  next 
storage  space  of  the  identity  array. 

Once  all  of  the  bids  have  been  checked,  and  only  one  comoany 
has  bid  the  highest  bid,  the  program  proceeds  to  assign  that  lease  to 
the  company.   If  no  bids  have  been  made  on  the  lease,  the  next  available 
lease  is  selected  and  the  orocess  is  reoeated. 


IF  (NEQUAL. EQ.l)  GO  TO  210 

IF  (NEQUAL. EQ.O.AND.NDEAL.EQ.O)  GO  TO  189 

IF  (NEQUAL. EQ.O. AND. NDEAL. EQ.l)  GO  TO  199 

Where:  NDEAL  =  an  indicator  to  tell  the  program  that  a  sale  is  being 
made  between  two  comoanies 


If  there  has  been  one  or  more  bids  on  the  lease,  HOLD 2  will  hold 
the  amount  of  the  highest  bid  and  the  array  IDENT  will  contain  the 
identity  of  the  company  or  companies  making  the  highest  bid. 

When  two  or  more  companies  have  made  equal  bids  that  are  the 
highest  bids  made,  the  winning  company  is  selected  by  a  random  drawing. 
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209  CALL  RANDNO  (RNUM) 
X  =  0.0 
Z  =  NEQUAL 

Y  =  l.O./Z 
T  =  Y 

•  DO  207  I  =  1, NEQUAL 
IF  (RNUM. GT.X. AND. RNUM. LT.Y)  GO  TO  208 
X  =  Y 

Y  =  Y  +  T 

IF  (Y.GS.1.0)  GO  TO  209 
20?  CONTINUE 
203  I  =  IDENT(I) 

Where:  RANDNO  =  a  subroutine  to  generate  evenly  distributed  random  numbers 
between  zero  and  one 
X     =  lower  limit  of  each  increment 

Y  =  upper  limit  of  each  increment 
T      =  the  increment 

Z      =  transfers  a  fixed  point  variable  to  a  floating  point 

variable 
RNUM   =  the  random  number 


A  randon  number  is  called  from  the  subroutine  RANDNO  and  is  divided 
into  as  many  equal  parts  or  increments  as  there  are  equal  bidding  companies. 
The  random  number  is  compared  to  each  increment  and  the  increment  in  which 
the  number  falls  will  determine  the  winning  company. 

Now  that  the  winning  bidder  has  been  established,  the  program 
proceeds  to  assign  the  company  as  lessee.  It  then  removes  the  lease 
number  from  the  list  of  available  leases. 


212  LEESEE(I,J)  =  TEMP 
LEASE(II)  =  0 

Where:  LESSEE(I,J)  =  an  array  that  holds  the  identity  of  the  leases  that 

a  company  owns 
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The  month  of  purchase  is  stored  in  the  array  UPDATE  for  future  reference, 


UPDATE (il)  =  MESES  +  1 

INTMG(II)  =  H0LD2  -  TANG(II) 

Where:  H0LD2  =  the  original  bid  amount 

NPDATE(II)  =  the  date  of  purchase 

INTANG(II)  =  the  intangible  assets 

TANG(II)  =  the  tangible  assets  assigned  to  the  property 

MESES  =  the  total  amount  of  time  simulated 


The  intangible  assets  will  be  equal  to  the  amount  paid  for  the  lease  less 
the  tangible  assets,  if  any,  which  will  have  previously  been  assigned. 
It  might  be  noted  that  lease  characteristics  are  identified  in  the 
characteristic  array  by  lease  number  whose  value  is  stores  as  (II). 

Selling  of  Leases  by  a  Company 

The  companies  are  also  allowed  to  sell  leases  to  each  other  but 
not  to  the  model  administrator.   The  program  first  ferrets  out  a  company 
desiring  to  sell  a  lease. 


DO  231  I  =  1,N?LAY 
DO  232  J  =  1,8 

IF  (BID(I,J,l).LT.(-O.Ol))  GO  TO  233 
GO  TO  231 
233  II  =  -BID(I,J,1) 

Where:  U  =  number  or  the  lease  to  be  sold 


When  a  company  desires  to  sell  a  lease,  a  negative  bid  is  made  on 
the  same  card  that  normal  bids  for  leases  are  made  on.   The  minimum  bid 
that  is  acceptable  to  the  seller  is  punched  into  the  second  bid  card 


12 


where  normally  the  bid  amount  for  leases  sold  by  the  administrator  is 
punched.   If  a  private  deal  is  desired,  the  deal  must  be  kept  between 
the  two  parties  involved  in  the  deal  as  the  program  will  recognize  all 
bids  on  a  lease.   Bidding  for  leases  that  are  for  sale  by  companies, 
whether  public  or  private,  will  be  accomplished  in  the  same  manner  as 
bidding  for  leases  that  are  for  sale  by  the  model  administrator. 

The  program  next  checks  to  insure  that  the  company  attempting  to 
sell  a  lease  actually  owns  it. 


DO  23k   K  =  1,MAX0WN 
IF  (II.EQ.LESS2E(I,K)  GO  TO  235 
23^  CONTINUE 
GO  TO  236 

236  PENS  EL  (1, 2)  =  PENSEL(I*,2)  +  FINE 
PENSEL(I,l)  =  -BTD(I,J,1) 

Where:  MAXOWN      =  the  maximum  number  of  leases  a  company  may  own 
PENSEL(I,l)  =  the  number  of  the  unowned  lease  a  company  is 

attempting  to  sell 
PENSEL(I,2)  =  the  total  amount  of  selling  fines  for  a  company 
FINE       =  the  amount  of  penalty  or  fine 


If  a  company  does  not  own  the  lease  it  is  attempting  to  sell,  a 
fine  will  be  imposed  upon  that  company  for  making  the  attempt.   This 
fine  is  a  parameter  set  by  the  game  administrator.  A  written  notice  will 
also  be  printed  in  the  remarks  section  of  the  company  balance  sheet  for 
that  period. 

Objective  of  Lease  Bidding 

Lease  bidding  is  thought  to  be  an  important  part  of  this  model, 
because  it  is  expected  to  spur  the  student  to  use  his  ability,  or  to 
acquire  the  ability  to  analyze  both  financial  and  engineering  data. 
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It  is  necessary  for  the  student  to  make  a  good  analysis  of  the  data  in 
order  that  companies  can  make  wise  bids.  Certainly  a  company  may  take 
a  wild  guess  and  have  it  turn  out  to  be  a  good  decision.   It  is  thought, 
however,  that  such  companies  will  lose  their  capital  and  go  bankrupt. 

The  penalty  or  fine  aspect  of  selling  leases  was  included  in  an 
attempt  to  prevent  the  students  from  trying  to  foil  the  simulation  by 
selling  a  lease  they  do  not  own,  whether  it  might  be  for  extra  capital, 
or  it  might  be  to  injure  another  company. 

Lease  Reversion  and  Abandonment 
At  certain  times  and  under  certain  circumstances  oil  companies 
may  decide  to  give  up  a  lease  that  they  have  purchased  and  can  find  no 
market  for  it.  There  are  two  other  methods  by  which  a  company  can 
dispose  of  an  undersirable  lease:  reversion  of  the  lease  to  the  land- 
owner or  by  properly  abandoning  the  lease.  Farmouts  will  be  discussed 
later. 

Lease  Reversion 

An  oil  company  might  wish  to  revert  a  lease  for  any  number  of 
reasons.   One  reason  might  be  that  the  company  does  not  have  sufficient 
funds  or  credit  available  to  develop  a  lease  within  the  lease  period. 
It  may  then  revert  the  lease  to  the  landowner  to  reduce  expenses. 
Another  reason  might  be  that  the  area  around  the  lease  has  been  tested 
with  negative  results  which  has  reduced  the  chance  that  oil  or  gas  may 
be  found  on  the  lease.   The  company  may  have  brighter  prospects  for  its 
capital  and  therefore  decides  not  to  invest  in  a  development  well. 

In  the  program  a  company  is  allowed  to  revert  a  maximum  of  four 
leases  oer  simulated  time  oeriod.  The  lease  number  of  the  lease  that  is 
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to  be  reverted  is  ounched  in  the  orooer  field  and  read  into  the  orograrn. 


READ  (5,11)  (RVERSN(I,J),  J=l,4), (ABAND(I,J) ,  J=l,4) 


DO  241  I  =  1,  NPLAY 
DO  241  J  =  1,4 

IF  (RVERSN(I,J).LT.O.Ol)  GO  TO  241 
II  =  RVERSN  (I, J) 
IF  (NWELLS(II,2).GT.O)  GO  TO  241 
DO  244  K  =  l,MAXOWN 
IF  (LESSEE(1,J).EQ.II)  GO  TO  245 
244  CONTINUE 


Where:  RVERSN (I, J)  =  lease  number  of  lease  desired  to  be  reverted 
NWELLS(II,2)  =  number  of  x^ells  on  the  lease  to  be  reverted 


The  program  first  checks  the  reversion  entries  of  the  companies. 
If  a  lease  number  is  detected,  ownership  is  checked  to  insure  that  the 
company  attempting  to  revert  the  lease  actually  owns  the  lease.   It  then 
determines  if  there  are  wells  on  the  lease.   If  there  are,  the  request  to 
revert  is  ignored,  for  the  lease  must  be  abandoned  and  not  reverted. 
When  there  are  no  wells  on  the  lease,  and  the  requesting  company  owns  the 
lease,  the  program  reverts  the  lease  to  the  model  administrator  without 
cost.   The  lease  is  then  put  back  on  the  list  of  available  leases  for 
sale. 


245  LEASE (II)  =  II 
RVERSN (I, J)  =  0.0 
LES5EE(I,K)  =  0 


If  a  company  attempts  to  revert  a  lease  that  it  does  not  own 
in  an  attempt  to  take  advantage  of  the  model  or  another  company,  the 
program  ignors  the  request,  fines  the  company,  and  prints  out  a  note  in 
the  remarks  section  of  the  company's  balance  sheet. 
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2^-3  PENRVT(I,2)  =  PENRVT(I,2)  +  FINE 
PENRVT(I,l)  =  RVERSN(I,J) 
RVERSN(I,J)  =0.0 

Where:  PENRVT(I,l)  =  the  array  holding  the  lease  number  attempted  to 

be  reverted 
PENRVT(I,2)  =  the  array  holding  the  total  amount  of  fines  for 
attempting  to  revert  leases  not  owned 


The  fine  is  the  same  parameter  as  mentioned  previously  in  the 
section  on  selling  leases. 

Lease  Abandonment 

Economic  consideration  is  probably  the  main  reason  an  oil 
company  would  desire  to  abandon  a  lease.   Either  the  lease  did  not 
prove  economically  feasible  during  the  development  stage,  or  the  lease 
has  reached  its  limit  of  depletion  from  production.   The  difference 
between  abandoning  a  lease  and  reverting  a  lease  is  that  a  lease  with 
wells  must  be  abandoned.   The  wells  must  be  closed  in  and  the  property 
restored  to  its  original  condition,  and  the  company  must  bare  these 
costs.  The  lease  being  reverted  has  no  wells  or  property  damage  and 
therefore  no  extra  costs. 

Each  company  is  allowed  to  abandon  a  maximum  of  four  leases  per 
simulated  time  period.  The  lease  numbers  of  the  leases  that  are  to  be 
abandoned  are  punched  into  the  lease  abandonment  request  card  beginning 
with  the  left  most  field.   The  abandonment  entries  are  read  in  just 
after  the  reversion  entries. 

READ  (5,11)  (RVERSN(I,J),  J=1,*0,(ABAND(I,J),  J=l,^) 
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DO  251  I  =  1,NPLAY 
DO  252  J  =  1,4 

IF  (ABAND(I,J).LT.O.Ol)  GO  TO  251 
II  =  ABAND(I,J) 
DO  253  K  =  l,MAXOWN 
IF  (LE3SEE(I,K).EQ.LL)  GO  TO  25^ 
253  CONTINUE 

Where:  ABAND(I,J)  =  the  array  holding  the  requests  for  lease  abandonment 


After  the  program  checks  through  the  request  for  abandonment 
entries  and  finds  a  lease  number,  it  insures  that  the  company  requesting 
the  abandonment  of  the  lease  actually  owns  the  lease.  If  this  checks, 
the  program  processes  the  abandonment  request. 


254  ABDC0S(I,1)  =  II 

WELLS  =  NWELLS(II,2) 

ABDC05(I,2)  =  ABDC0S(I,2)  +  WELLS  *  ABDKFT 

Where:  ABDCOS(I,l)  =  the  array  holding  the  lease  numbers  of  the  leases 

on  which  the  abandonment  costs  occurred 
ABDC0S(I,2)  =  the  array  holding  the  amount  of  abandonment  costs 
WELLS       =  a  floating  point  variable  used  to  transfer  a  fixec 

point  variable  to  a  floating  point  variable 
ABDNFT      =  the  amount  charged  per  x%Tell  upon  abandonment 


The  number  of  the  lease  to  be  abandoned  is  stored  in  the  array 
ABDC0S(I,l)  and  the  abandonment  costs  for  the  lease  are  computed  by 
multiplying  the  abandonment  cost  factor  times  the  number  of  wells  on 
the  lease.   The  abandonment  cost  factor  is  a  parameter  assigned  by  the 
model  administrator. 

If  it  is  determined  that  a  company  has  attempted  to  abandon  a 
lease  it  does  not  own,  a  fine  is  awarded  similar  to  the  fines  described 
in  the  selling  and  reverting  of  leases. 
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PENA3D(I,1)  =  ABAND(I,J) 
PENABD(I,2)  =  PENABD(I,2)  +  FINE 
GO  TO  251 

Where:  PENA3D(I,l)  =  the  array  holding  the  lease  numbers  of  the  leases 

that  have  had  abandonment  attempted 
PENABD(I,2)  =  the  array  holding  the  amount  of  fines  for  attempting 
to  abandon  leases  not  owned 


First,  the  lease  number  upon  which  abandonment  has  been  attempted 
is  stored  in  the  array  PENABD(I,l).   The  fine  is  then  awarded  and  the 
total  amount  is  then  stored  in  the  array  PENABD(I,2).  FINE  is  the  same 
parameter  that  was  outlined  in  the  section  on  selling  leases. 

Objective  of  Lease  Reversion  and  Abandonment 

Lease  reversion  and  abandonment  provides  the  companies  with 
avenues  to  dispose  of  undesirable  leases.   It  is  expected  that  before 
a  lease  is  reverted  or  abandoned,  the  student  will  analyze  all 
available  data  in  an  attempt  to  determine  if  it  is  wise  to  give  up 
the  lease.   This  analysis  should  require  the  exercise  of  both  his 
engineering  and  his  financial  management  knowledge. 


CHAPTER  III 
LEASE  DEVELOPMENT  AND  PRODUCTION 

Labor 
Almost  all  of  industry  must  deal  with  organized  labor  in  some 
manner.   To  achieve  a  bit  more  realizm  in  this  industry  simulation,  the 
effects  of  labor  contracts  and  negotiation's  have  been  included. 

Labor  Contracts 

It  has  been  assumed  for  this  simulation  that  all  of  the 
independent  oil  companies'  labor  forces  have  been  unionized.   The 
relationship  between  the  company  and  the  union  is  in  either  one  of 
two  states;  either  there  is  a  contract  in  force  or  there  is  a  period 
when  negotiations  are  taking  place. 

When  the  company  and  the  union  have  a  contract  in  force,  the 
company  can  not  alter  the  wage  rate. 


IF  (REQPAY(I).GT.1.1*PAYBAS)  REQPAY(I)  =  1.1  *  PAYBAS 
IF  (REQPAY(I).LT.o.9*?AYBAS)  REQPAY(I)  =  0.9  *  PAYBAS 
IF  (RLABOR. GT. 0.1)  REQPAY(I)  =  RL4.B0R 

Where:  RLABOR    =  the  parameter  to  control  whether  or  not  a  labor 

contract  is  in  effect 
PAYBAS    =  the  parameter  to  control  the  basic  wage  rate 
REQPAY(I)  =  the  array  that  contains  the  companies'  requests 

to  change  the  labor  wage  rate 


As  shown  in  the  third  statement  above,  when  the  parameter  RLABOR 
is  set  at  some  value  greater  than  one  tenth,  the  companies'  requests  to 
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change  the  wage  rate  are  nullified  by  setting  them  equal  to  the  amount 
set  in  RLABOR.  RLABCR  is  a  parameter  set  by  the  model  administrator  and 
can  be  used  to  vary  the  sensitivity  of  the  strike  feature  of  the  simula- 
tion.  If  an  amount  greater  than  PAYBAS  is  set  into  RLABOR,  the 
sensitivity  of  the  strike  feature  is  decreased.  If  the  amount  is  less, 
the  sensitivity  is  increased.  PAYBAS  is  another  parameter  set  by  the 
model  administrator  at  the  initial  starting  point  of  the  simulation  and 
it  is  not  changed. 

A  contract  period  is  terminated  and  a  negotiating  period  commences 
when  the  model  administrator  sets  RLABOR  equal  to  zero.   The  companies 
may  then  adjust  their  labor  wage  rate  within  ten  per  cent  of  the  amount 
set  in  PAYBAS.  If  they  attempt  to  set  it  higher  or  lower,  the  program 
will  automatically  assign  it  back  to  its  related  limit.   By  lowering  the 
wage  rate  below  the  base  rate,  a  company  iri.ll  increase  the  probability 
that  it  will  have  a  strike.   If  it  increases  the  wage  rate  above  the  base 
rate,  the  probability  of  a  strike  will  decrease. 

The  status  of  a  labor  contract,  in  effect  or  not  in  effect,  per- 
tains to  the  whole  industry  and  cannot  be  set  for  individual  companies  as 
the  model  is  presently  programed. 

Fringe  Benefits 

Another  aspect  of  reality  concerning  the  management  -  labor 
relationship  is  the  payment  of  fringe  benefits.   These  fringe  benefits 
may  be  payment  of  a  certain  sum  into  a  retirement  fund,  payment  of 
medical  insurance  premiums,  or  other  similar  items.  In  this  simulation, 
fringe  benefits  are  not  frozen  by  a  labor  contract  but  they  may  be 
varied  up  or  down  at  any  time. 
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IF  (BSNFIT.GT.O.OI)  FRINGE (I)  =  BENFIT 


IF  (FRINGE(I).GT.2.0*BENBAS)  FRINGE (I)  =  2.C  *  BENBAS 

Where:  BENFIT     =  a  parameter  to  control  the  fringe  benefit  feature 
FRINGS(I)  =  array  holding  the  companies'  requests  to  change 

fringe  benefits 
BENBAS     =  a  oarameter  to  set  the  base  benefit  rate 


The  parameter  BENFIT,  set  by  the  model  administrator,  may  be  in 
a  similar  manner  as  the  parameter  RLABOR  x<jas  used  for  labor  wages.  If  • 
BENFIT  is  set  equal  to  zero,  the  companies  will  be  allowed  to  vary  the 
payment  of  fringe  benefits  to  its  employees.   The  variation  is  limited 
to  a  minimum  of  zero  and  a  maximum  of  twice  the  parameter  BENBAS  which 
is  the  basic  fringe  benefit  rate  set  at  the  initial  starting  point  by 
the  model  administrator.  If  BENFIT  is  set  equal  to  the  same  amount  as 
BENBAS,  fringe  benefits  will  have  no  effect  upon  the  likelihood  of  the 
company  taking  a  strike.   As  with  RLABOR,  if  BENFIT  is  set  lower  than 
BENBAS,  the  probability  of  a  strike  will  increase.  If  it  is  set  higher, 
the  probability  will  decrease. 

The  effect  of  the  variation  of  BENFIT  upon  the  ability  to  vary 
fringe  benefits  or  upon  the  sensitivity  of  a  strike  will  be  felt  industry 
wide  and  cannot  be  set  for  individual  companies  as  the  model  is  presently 
programed. 

Labor  Strikes  and  Their  Effects 

Before  development  of  the  leases  can  be  performed  or  the  produc- 
tion of  oil  and  gas  can  be  accomplished,  it  must  be  determined  if  the 


21 


labor  is  available  to  carry  out  these  tasks.  If  the  labor  unions  have 
called  a  strike,  no  development  or  production  will  occur  for  a  maximum 
of  two  months.  If  the  simulated  period  length  is  less  than  two  months 
the  strike  will  last  for  only  the  oeriod  length. 


IF  (ISTRIK.EQ.l. AiMD.JJ.LT. 3)  GO  TO  632 

Where:  ISTRIX  =  is  an  integer  variable  representing  the  variable  STRIKE 
JJ     =  the  month  number  of  the  simulated  period  presently  being 
run 


If  a  strike  should  occur,  ISTRIK  will  equal  one  and  the  program 
merely  bypasses  the  drilling  and  development  routines. 

A  strike  will  or  will  not  occur  depending  upon  the  probability 
of  a  strike  and  random  selection.   The  probability  of  a  strike  is 
computed  by  the  comparison  of  the  relative  amounts  of  wages  and  fringe 
benefits  that  are  being  paid  to  the  company's  employees. 

First,  it  is  necessary  to  compute  the  average  wage  and  the  average 
fringe  benefits  paid  in  the  industry. 


DO  300  I  =  1,NPLAY 

IF  (REQPAY(l).GT.O.l)  PAY(I)  =  REQPAY(I) 

IF  ( FRINGE ( I ).GT. 0.01)  EMPBEN(I)  =  FRINGE (I) 

TEMP  =  TEM?  +  PAY(I) 


300  K0LD2  =  H0LD2  +  EMBBEN(I) 
X  =  NPLAY 
PAYAVG  =  TEMP/X 
BENAVG  =  H0LD2/X 

Where:  TEX?      =  a  temporary  holding  variable 
H0LD2     =  a  temporary  holding  variable 

PAY(K)    =  the  wage  rate  to  be  in  force  for  this  time  period 
EMPBEN(I)  =  the  fringe  benefit  rate  to  be  in  for  this  time 
period 
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PAYAVG    =  the  average  employee  wage  rate  for  the  industry 
BENAVG    =  the  average  fringe  benefit  rate  for  the  industry 
X        =  changes  a  fixed  point  amount  to  a  floating  point 


In  the  second  and  third  statements  above,  the  new  wage  rates  and 
new  fringe  benefit  rates  are  set  for  the  simulated  period.   If  there  is 
no  change,  the  program  will  use  the  rate  from  the  previous  period  which 
will  have  been  stored  in  the  arrays  PAY(I)  and  EMPBEN(I). 

In  computing  the  strike  probability,  which  is  represented  by  the 
variable  STRIKE,  the  program  first  compares  the  wage  and  benefit  rates 
with  their  respective  industry  averages. 


STRIKE  =  (1.0  -  PAY( I) /PAYAVG)  +  (1.0  -  PAY(I)/PAYBAS) 
STRIK2  =  (1.0  -  EMPBEN (I) /BENAVG)  +  (l.O  -  EM?BEN(I)/BENBA3) 
STRIKE  =  (STRIKE  +  STRIK2)  *  STKFAC 
IF  (STRIKE. LT. 0.0)  STRIKE  =  0.0 
IF  (STRIKE. GT. 1.0)  STRIKE  =  1.0 

Where:  STRIKE  =  a  variable  holding  the  probability  of  a  strike 
STRIK2  =  a  temporary  holding  variable 

STKFAC  =  a  factor  to  control  the  sensitivity  of  the  strike 
probability 


The  first  and  second  statements  above  shows  that  if  a  company's 
wage  rate  and  fringe  benefit  rate  are  equal  to  both  of  the  respective 
averages  and  bases,  a  strike  probability  will  not  be  generated.  It  can 
be  easily  seen  that  if  one  company  pays  high  wages  and  low  benefits  and 
another  company  pays  low  wages  and  high  benefits,  the  resulting  strike 
factors  may  be  equal.  It  can  also  be  seen  that  companies  that  pay  both 
low  wages  and  fringe  benefits  will  greatly  increase  their  chances  of 
getting  a  strike.  STKFAC  is  a  parameter  set.  in  by  the  model  administrator 
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to  control  the  sensitivity  of  the  strike  factor  or,  if  it  is  set  equal  to 
zero,  the  strike  feature  will  be  completely  eliminated  from  the  model. 
Although  the  variable  STRIKE  is  greater  than  zero,  it  does  not 
mean  that  a  strike  will  occur. 


CALL  RANDNO  (RJTOM) 

IF  (HNUM,GT. 0.0. AND.RNUM.LT. STRIKE)  STRIKE  =1.0 
IF  (STRIKE. EQ. 1.0)  GO  TO  630 


The  determination  of  the  strike  status  by  random  number  attempts 
to  take  the  human  element  into  account  in  the  simulation.  Even  if  the 
STRIKE  is  a  high  number,  nine-tenths  for  example,  a  random  number  larger 
than  STRIKE  would  keep  a  strike  from  being  called.   To  relate  this  to 
real  life  it  would  mean  that  a  company  might  have  a  high  probability  of 
a  strike  because  of  low  wages  and  inadequate  fringe  benefits  being  paid 
to  its  employees,  but  because  the  employees  have  other  interest  in  the 
company,  they  do  not  want  to  strike. 

Lease  Development 
The  simulation  of  the  development  of  different  types  of  reservoirs 
would  take  on  mammoth  proportions  if  all  of  the  factors  describing  the 
reservoir  and  its  contents  were  taken  into  consideration  and  made 
compatible.   This  would  be  beyond  the  scope  of  this  thesis,  therefore 
a  simplified  approach  was  taken.  Equations,  were  selected  and  experimented 
with  until  they  would  produce  approximately  the  traits  desired.  Limits 
were  set  and  in  many  cases  random  selection  decided  the  reservoir  and  well 
conditions.   This  method  was  used  to  generate  various  reservoir  and  well 
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characteristics  such  as  initial  well  pressure,  recoverable  reserves, 
initial  flow  rates,  etc. 

Once  the  initial  wells  have  been  drilled  and  the  lease  development 
wells  have  been  completed,  it  may  be  desirable  to  treat  the  wells.   Two 
well  treatments  are  orovided  in  this  simulation:   fracturing  and  acid 
treating.  The  orocedure  followed  produces  results  that  aporoximate  the 
real  life  event. 

After  the  wells  of  a  lease  have  stopped  flowing  by  natural  forces, 
it  may  be  desirable  to  install  pumps  on  the  wells.   This  event  is  also 
simulated  in  the  program.  If  the  pumps  do  not  produce  the  desired  results 
or  the  wells  have  declined  below  the  economical  limit  for  pumping,  a 
secondary  recovery  system  may  be  installed  on  the  lease  upon  request. 

One  departure  from  reality  has  been  made  for  the  cause  of 
programing  simplicity.  If  it  is  desired  to  fracture,  acid  treat,  install 
pumps,  or  install  a  secondary  recovery  system  on  a  lease,  it  will  be  done 
on  all  of  the  wells  of  the  lease.   Overall  lease  performance  must  be  used 
to  decide  whether  or  not  to  invest  in  one  of  these  improvements. 

Exploratory  Drilling 

Exploratory  wells  may  be  drilled  on  a  lease  whenever  requested 
by  the  company  who  owns  the  lease.   In  this  work,  an  exploratory  well 
is  the  initial  well  drilled  on  the  lease  where  there  are  no  other  producing 
wells.  If  an  exploratory  well  is  not  drilled  on  an  unproven  lease  within 
one  year  of  purchase,  a  delay  rental  rate  will  automatically  be  charged  at 
the  amount  of  one  dollar  per  acre  per  year  as  stated  in  the  lease  descriptions. 

Companies  are  permitted  to  drill  on  a  maximum  of  eight  leases  for 
each  simulated  time  period.  The  company  decisions  as  to  which  lease  they 
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desire  to  drill  on  and  how  many  wells  are  to  be  drilled  are  read  into 
the  comoutor. 


READ  (5,25)  (XDRILL(I,J,l),  J  =   1,3) 
READ  (5,25)  (XDRILL(I,J,2),  j  =  1,3) 

Where:  XDRILL(I,J,l)  =  the  array  that  holds  the  lease  numbers  upon  which 

drilling  is  desired 
XDRILL(I,J,2)  =  the  array  that  holds  the  number  wells  desired  to 
be  drilled 


Limitations  have  been  set  in  the  model  which  allow  only  one 
exploratory  well  to  be  drilled  oer  month  and  four  development  wells  to  be 
drilled  per  month  thereafter  on  the  same  lease.  It  was  felt  that  if  oil 
or  gas  was  found  on  the  lease,  more  rigs  would  be  moved  in  to  develop  the 
reservoir  as  fast  as  possible. 

When  the  computer  reaches  the  development  portion  of  the  program, 
it  checks  to  determine  if  a  request  to  drill  has  been  made  and  if  the  well 
to  be  drilled  is  an  exploratory  well. 


DO  650  K  =  1,8 

IF  (XDRILL(I,K,l).EQ.TEM?.AJ'D.If.«/ELL3(II).EQ.O)  GO  TO  658 


65O  CONTINUE 


653  KOUNT  =  KOUNT  +  1 

IF  ( KOUNT. EQ.l)  WRITE  96,1100)  I 
IF  (JJ.EQ.l)  WRITE  (6,1101)  II 

Where:  TEMP      =  the  lease  number  as  a  floating  point  variable 
NWELLS(II)  =  the  number  of  producing  wells  on  the  lease 
KOUNT      =  an  integer  counting  variable 


'The  last  three  statements  above  are  merely  statements  to  control 
the  format  of  the  Lease  Development  Report. 
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The  next  task  to  be  accomplished  is  to  determine  if  there  is  oil 
and/or  gas  under  the  lease  being  drilled  upon.   All  unproven  lease 
descriptions  were  analyzed  and  have  been  assigned  a  geological  chance 
or  probability  of  discovery  factor  the  value  of  which  ranges  from  zero 
to  one.   The  term  "geological  chance"  has  been  defined  as  the  chance  of 
finding  oil  on  any  exploration  attempt.   First,  the  requested  number  of 
wells  must  be  reduced  by  the  initial  well. 


XDKILL(I,K,2)  =  XDRILL(I,K,2)  -  1.0 
CALL  RANDNO  (RNUM) 
IF  (RNUM.GT.GEOFAC(II))  GO  TO  659 
GO  TO  660 

Where:  RNUM      =  a  random  number  between  zero  and  one 

GECFAC(II)  =  the  geological  chance  of  discovery  for  the  lease 


A  random  number  represented  by  the  variable  RNUM  is  called  from  the 
subroutine  RANDNO.   It  is  then  compared  with  the  geological  chance  factor. 
If  the  random  number  is  greater  than  the  geological  chance  factor,  a  dry 
hole  has  been  drilled. 


659  GEOPAC(II)  =0.0 
H0LD2  =0.0 

IF  (NWELLS(II).ECJ.O)  K  =  1 
WRITE  (6,1103)  JJ,  K,  DRY,  K0LD2 


XDRILL(I,K,1)  =0.0 
XDRILL(I,K,2)  =  0.0 


Where:  K0LD2  =  a  temporary  variable  representing  the  initial  well  flow  rate 
JJ    =  the  month  number  of  this  simulated  period  in  which  the  well 

was  drilled 
K     =  the  number  of  the  well  drilled  this  month 


The  assumption  has  been  made  in  this  model  that  when  a  dry  hole  is 
drilled  on  a  lease,  all  other  wells  drilled  on  the  lease  will  be  dry.  This 
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is  the  reason  why  the  geological  chance  factor  is  set  equal  to  zero.   The 
company  who  owns  the  lease  may  drill  again  the  next  period,  but  the  result 
will  again  be  a  dry  hole.  Each  time  a  well  is  drilled,  a  statement  is 
printed  on  the  Lease  Development  Report  that  includes  the  month  of  the 
simulated  period  during  which  the  well  was  drilled,  the  well  number  for 
that  month,  the  status  of  the  well  (whether  it  is  a  discovery  well  or  a 
dry  hole),  and  the  initial  flow  rate  of  the  well.  Further  information  is 
provided  if  the  well  is  a  discovery  well  and  will  be  explained  later.   If 
the  well  is  a  dry  hole,  no  more  wells  will  be  drilled  on  the  lease  for  the 
period  in  which  the  dry  hole  was  drilled  even  though  more  wells  were 
requested.   The  program  will  proceed  to  the  next  lease  of  the  company. 

A  well  is  a  discovery  well  if  the  random  number  drawn  is  less  than 
or  equal  to  the  geological  chance  factor.  'When  it  is  a  discovery  well,  the 
amount  of  recoverable  oil  in  the  reservoir  discovered  is  determined  by  a 
random  selection  process.   The  method  utilizes  a  distribution  of  the  per 
cent  chance  of  average  field  size  as  set  forth  by  F.  A.  Lanee  in  his 
article  "How  Many  Fields  Really  Pay  Off?"  and  graphically  illustrated  by 
Campbell  and  Schuh  in  their  oaper  "Risk  Analysis"  Overall  Chance  of  Success 
Related  to  the  Number  of  Ventures."   The  per  cent  chance  of  field  size  was 
divided  into  nine  equal  increments  and  a  random  number  is  used  to  determine 
the  catagory  of  the  field  size  to  represent  the  discovery. 


660  X  =  0.0 
w  =  0.0 

CALL  RANDNO  (RNUM) 
BO  661  X  =  1,9 
W  =  W  +  FLOAT(K) 
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IF  (RNUM.GT.X.AND.RNUM.LE.Y)  GO  TO  662 

661  X  =  Y 

'//here:  X  =  the  lower  limit  of  the  increment 
Y  =  the  upper  limit  of  the  increment 
W  =  a  temporary  holding  variable 


The  limits  of  the  field  sizes  were  picked  corresponding  to  the 
per  cent  chance  limits.  Although  Lanee's  distribution  plots  as  a  curve 
on  regular  coordinates,  linear  interpolation  is  used  to  calculate  the 
field  size  that  lies  between  the  limits  of  the  increment.   It  was  felt 
that  the  results  obtained  would  be  accurate  enough  for  this  purpose. 

The  calculations  for  the  nine  catagories  of  reservoir  size  are 
similar  except  for  the  numerical  values,  therefore  only  the  catagory  for 
the  increment  of  between  ten  and  tx^enty  per  cent  chance  is  discussed. 


662  CALL  RANDNO  (RNUM) 

GO  TO  (663,66^,665,666,667,663,669,670,671),  K 


664  RESORS(II)  =  (263.  +  RNUM  *  560)  -  10000. 
LESFAC(II)  =  RESORS(II)  *  .000002 
DZERO(II)  =  0.034167 

QZERO(II)  =  1./. 000006  -  DZSRO(II)/.995 
PINT(II)   =  1000.  +  RNUM  *  4000. 
FVF(II)    =  1.1  +  RNUM  *  0.4 
GO  TO  6^5 

Where:  RS30R3(II)  =  the  total  recoverable  oil  on  the  lease 

LESFAC(II)  =  the  factor  that  limits  the  number  of  wells  on  the  lease 

DZERO(II)  =  the  slope  of  the  production  decline  curve 

QZERO(II)  =  the  initial  well  flow  rate  potential  in  barrels  per  day 

PINT (II)   =  the  initial  reservoir  pressure 

FVF(II)    =  the  initial  formation  volume  factor 


The  first  numoer  in  the  first  statement  above  which  calculates  the 
amount  of  recoverable  oil  is  the  limit  for  the  minimum  amount  of  recoverable 
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oil  in  the  reservoir.   The  second  number  is  the  increment  between  the 

minimum  amount  and  the  maximum  amount. 

The  lease  factor  is  utilized  to  determine  the  maximum  number  of 

wells  that  can  be  drilled  on  the  lease.   As  will  be  shown  later,  a  well 

factor  between  zero  and  one  will  be  assigned  to  each  well  drilled  on  the 

lease,  and  will  determine  the  production  rate  of  the  well.  As  the  well 

factors  are  assigned,  their  values  are  subtracted  from  the  lease  factor. 

All  wells  drilled  after  the  lease  factor  is  reduced  to  zero  will  be  dry 

holes.  This  procedure  was  used  in  preference  to  using  various  well 

/ 
spacing  and  location  on  certain  size  leases  because  of  its  comparative 

simplicity. 

The  slope  of  the  decline  curve  represented  by  DZERC(II)  was  chosen 
by  experimental  means.  Hoi-:  it  was  chosen  will  be  explained  later  in  the 
section  on  lease  production  of  this  chapter. 

The  initial  flow  rate  potential,  or  QZERO(II),  is  the  term  used  to 
describe  the  best  possible  flow  rate  per  well  for  the  reservoir.  The 
equation  used  to  calculate  QZSRO(II)  was  derived  by  integrating  the 
equation  to  describe  the  decline  of  the  recoverable  reserves  bet-/;een  the 
initial  flow  rate  and  a  low  flow  rate  limit  and  resulted  in: 

0  =  ( RESERVES )(Dn) 
o     1.  -  FACTOR 

Where:  Q  =  the  initial  flow  rate 
RESERVES  =  the  recoverable  reserves 

D  =  the  slope  of  the  production  decline  curve 
FACTOR  °  =  a  number  chosen  that  when  multiplied  by  Qq 
established  the  low  flow  limit 

The  derivation  of  this  equation  is  given  in  APPENDIX  E. 
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To  find  the  maximum  recoverable  oil  for  a  well  with  a  well  factor 
of  one  which  is  the  maximum  flow  potential,  the  total  amount  of  recoverable 
oil  is  divided  by  the  lease  factor.  If  this  answer  is  used,  the  total 
recoverable  oil  would  be  recovered  when  the  flow  rate  declined  to  the 
low  limit  previously  set  by  multiplying  the  amount  FACTOR  times  the  initial 
flow  rate.   It  is  desired,  however,  that  about  half  of  the  recoverable  oil 
be  recovered  by  natural  forces  with  the  rest  left  to  be  recovered  by 
artificial  lifting  methods  and  secondary  recovery.   Therefore,  the  quotient 
of  the  reserves  divided  by  the  lease  factor  is  now  divided  by  two.  The 
result  is  multiplied  by  DZERO(II)  and  divided  by  one  minus  FACTOR  to 
obtain  QZERO(II). 

Initial  reservoir  pressure  is  not  directly  related  to  the  well  flow 
rate  or  the  amount  of  recoverable  reserves.   It  is  more  a  function  of  depth 
or  the  reservoir's  natural  surroundings,  and  therefore  is  picked  by  a 
random  process.   The  limits  of  reservoir  oressure  are  set  at  1000  FSI  to 
5000  FSI  and  the  process  chooses  some  pressure  in  between  the  two. 

The  initial  formation  volume  factor  is  selected  by  the  same  random 
process  between  the  limits  of  1.1  and  1.5*  Since  the  formation  volume 
factor  is  related  to  the  initial  pressure,  it  is  related  to  the  initial 
pressure  by  using  the  same  random  number  to  calculate  it. 

The  next  step  is  to  assign  the  well  a  number  and  a  well  factor 
and  comoute  the  initial  flow  rate  of  the  well. 


675  CALL  RANDNO  (RNUM) 
WELNUM(LASTNM,,1)  =11 
WELNUM(LASTNM,2)  =  RNUM 

LASTNM  =  LAS  DIM  +  1 
LESFAC(II)  =  LESFAC(II)  -  RNUM 
H0LD2  =  QZERO(II)  *  RNUM 
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Where:  WELNUM(LASTNM,l)  =  the  array  holding  the  lease  number  in  which  the 

well  is  located 
WELNUM(LASTNM,.2)  =  the  array  holding  the  well  factor 
LASTNM  =  the  index  of  the  well  number  array  which  is 

actually  the  well  number 
H0LD2  =  a  temporary  holding  variable  that  represents 

the  initial  flow  rate  of  the  well 


First,  a  random  number  is  called  and  is  used  as  the  well  factor. 
The  well  is  then  assigned  its  lease  number  in  the  first  column  of  the 
WELNUM  array,  and  the  well  factor  is  assigned  to  the  corresponding  location 
in  the  second  column  of  the  array.   One  is  then  added  to  the  variable  LASTNM 
in  order  that  the  next  number  will  be  ready  for  the  next  well  completed. 

The  last  characteristics  of  the  well  and  oil  are  now  calculated. 


OILFAC  =  (H0LD2  -  HOLD2/EXP(DZSRO(II)))/2.0 

PI  =  OILFAC /((PINT (II)  -  PINT(II)/EXP(DZERO(II)  *  l.^))/2.0) 

CALL  RANDNO  (RNUM) 

VISCTY(II)  =0.1+20.  *  RNUM 

CALL  RANDNO  (RNUM) 

GORINT(II)  =  1000.  *  RNUM 

NWELLS(II)  =  NWELLS(II)  +  1 

Where:  VISCTY(II)  =  the  oil  viscosity  for  the  reservoir  in  centipoise 
GORINT(II)  =  the  initial  producing  gas-oil  ratio 
OILFAC     =  the  average  flow  rate  in  barrels  per  day  over  a 

period  of  one  month 
PI        =  the  productivity  index  for  the  well 


In  the  first  statement,  the  average  oil  flow  rate  is  determined 
for  the  first  month  of  production  by  calculating  the  rate  at  time  zero  and 
the  rate  at  time  one  and  averaging  the  two  values. 

PI,  the  productivity  index,  is  defined  as  "the  ratio  of  the  rate  of 

production,  expressed  in  stock  tank  barrels  per  day,  to  the  pressure 

5 

drawdown  at  the  midpoint  of  the  producing  interval.,T   It  is  used  to 

indicate  the  producing  ability  of  the  well. 
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'The  next  four  statements  determine  the  viscosity  of  the  oil 
in  centipoise  and  the  producing  gas-oil  ratio.   Both  values  are  picked  by 
utilizing  random  numbers  to  select  a  value  between  set  limits.  Since  this  is 
the  initial  well  for  the  lease,  the  last  statement  establishes  the  number 
of  producing  wells  contained  in  the  array  NWELLS  for  the  lease  as  one. 

All  reservoir,  well,  and  oil  characteristics  calculated  are  printed 
on  the  Lease  Development  Report  for  the  initial  well  on  the  lease.   For  all 
development  wells  after  the  initial  well,  all  of  the  characteristics  are 
printed  except  the  formation  volume  factor  and  the  viscosity  which  will  be 
the  same  for  all  wells  on  the  lease. 

Development  Drilling 

Once  a  discovery  well  has  been  completed,  the  drilling  of  the 
development  wells  can  begin.   The  number  of  the  development  wells  drilled 
is  limited  to  four  wells  per  month  per  lease.   The  requests  for  drilling 
are  checked  to  determine  if  the  company  desires  to  drill  on  its  lease. 


DO  650  K  =  1,8 

IF#(^Rlii(liKil).SQ.TFl-IP.AriD.:a3RILL(l,K,2).GT.O.l)  GO  TO  65I 
65O  CONTINUE 


651  K0UNT  =  KCUNT  +  1 


IF  (XDRILL(I,K,2).GT.^.O)  GO  TO  Gj>k 

N  =  XDRILL(I,K,2) 

XDRILL(I,K,2)  =  0.0 

GO  TO  635 
63^  N  =  k 

XDRILL(I,K,2)  =  XDRILL(I,K,2)  -  4.0 
635  CONTINUE 

Where:  N  =  the  number  of  wells  to  be  drilled  this  month 
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When  the  program  discovers  that  development  wells  are  to  be  drilled, 
it  tests  to  see  if  the  number  of  wells  requested  to  be  drilled  is  greater 
than  four.   If  it  is  less  than  four,  the  number  requested  is  reduced  to 
zero  and  the  wells  are  drilled.  As  previously  stated,'  the  maximum  number 
of  wells  to  be  drilled  per  month  is  limited  to  four.   If  the  number  of  wells 
requested  to  be  drilled  is  greater  than  four,  the  alloted  four  wells  are 
drilled  and  the  remaining  wells  will  be  drilled  the  following  month  if 
circumstances  oermit. 


DO  652  K  =  1,N 

CALL  RANDNO  (RNUM) 

IF  (LESFAC(II).LT. 0.001)  GO  TO  659 

IF  (LESFAC(II)-RMJM.LE.O.O)  RNUM  =  LESFAC(II) 

WELNUM(LASTNM,l)   =  II 

WELNUM(LASIKM,2)   =  RNUM 

LESFAC(II)   =  LESFAC(II)   -  RNUM 

SWELLS  (H)  =  SWELLS  (H)  +  1 

H0LD2  =  RNUM  *  QZERO(II) 


652  CONTINUE 


The  procedure  is  similar  to  the  procedure  used  for  the  discovery 
well  with  the  exception  of  the  third  and  fourth  statements.   The  third 
statement  tests  to  find  out  if  the  limit  of  the  number  of  wells  for  the 
lease  has  been  reached.  If  it  has,  the  well  drilled  will  be  a  dry  hole 
and  no  more  wells  will  be  drilled  on  the  lease  for  the  remaining  part  of 
the  simulated  time  period.   The  fourth  statement  tests  the  random  number 
to  determine  if  it  is  larger  than  the  remaining  amount  stored  in  the  lease 
factor  for  the  reservoir.  If  the  random  number  is  larger,  it  is  set  equal 
to  the  lease  factor.   This  prevents  the  sum  total  of  the  well  factors  from 
becoming  greater  than  the  original  lease  factor. 
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Development  drilling  will  continue  as  long  as  it  is  requested 
at  the  rate  of  four  wells  per  month  until  the  lease  factor  is  reduced 
to  zero. 

Well  Treating,  Artificial  Lifting,  and  Secondary  Recovery 

Well  treating  in  the  model  includes  well  fracturing  and  acid 
treating.  Companies  may  have  the  wells  fractured  on  a  maximum  of  four 
leases  and  the  wells  acid  treated  on  a  maximum  of  four  leases  during  a 
simulated  time  period.   The  lease  numbers  of  the  leases  on  which  the 
company  desires  to  have  the  wells  fractured  or  acid  treated  are  read 
into  the  computer. 

READ  (5,25)  (REQFRC(I,J),  J  =  l,^),(HEQACD(ItJ),  J  =  1,*0 

Where:  REQFRC(I,J)  =  the  array  holding  the  identity  of  the  leases 

requested  to  be  fractured 
REQFRC(I,J)  =  the  array  holding  the  identity  of  the  leases 
requested  to  be  acid  treated 

Before  the  production  of  gas  and  oil  on  a  lease  is  calculated,  the 
request  arrays  for  fracturing  and  acid  treating  are  checked  to  find  out  if 
the  wells  on  the  lease  are  to  be  fractured  or  acid  treated. 


DO  6^8  k  =  1,^ 

IF  (REQFRC(I,K).EQ.TEM?)  GO  TO  633 

IF  (REQACD(I,K).EQ.TEKP)  GO  TO  633 


6^3  CONTINUE 

Where:  TEMP  =  a  temporary  floating  point  variable  holding  the  lease 
number  in  question 
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If  a  request  for  fracturing  or  acid  treating  is  made,  there  will 
be  no  production  on  the  lease  for  that  month  of  the  simulated  period. 
Drilling  is  done,  however,  for  fracturing  and  acid  treating  may  be 
thought  of  as  an  extension  of  the  well  completion  routine. 

Once  the  production  calculations  are  bypassed  and  any  requested 
drilling  is  completed,  the  request  arrays  are  again  checked. 


6?6  X  =  NWELLS(II) 

DO  677  K  =  l,i+ 

IF  (REQFRC(I,K).EQ.TEM?)  GO  TO  685 

IF  (REQACD(I,K).EQ.TEM?)  GO  TO  686 
677  CONTINUE 

GO  TO  632 


If  there  are  no  requests  to  fracture  or  acid  treat  the  wells  on 
the  lease,  the  program  proceeds  either  to  the  next  month  of  the  simulated 
period  or  to  the  lease  accounting  section. 

When  there  is  a  request  for  the  wells  of  a  lease  to  be  fractured, 
whether  or  not  the  fracture  treatment  is  successful  is  next  determined. 


685  REQFRC(I,K)  =0.0 

IF  (N0(II).NE.3C.CR.N0(II).NS.^0)  GO  TO  687 
NO(II)  =  NO(II)  -  5 
CALL  RANDNO  (MUM) 

IF  (RNUM.LT.FRCFAC)  GO  TO  687 

Where:  FRCFAC  =  parametric  variable  representing  the  chance  that  the 
fracture  treatment  is  not  effective 
NO(II)  =  the  control  array  for  well  treating,  pumping  and 
secondary  recovery 


The  control  array  given  above  as  NO (II)  is  used  to  control  the 
number  of  times  well  treatments,  installation  of  pumps,  and  installation 
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of  secondary  recovery  can  be  carried  out  on  a  lease,  and  the  order  in 
which  they  are  carried  out.  It  limits  each  lease  to  one  fracture  treat- 
ment and  one  acid  treatment  per  well.  Each  time  the  attempt  is  made  to 
fracture  or  acid  treat  a  well  after  the  initial  attempt,  the  treatment 
will  not  effect  the  wells  production  rate  but  the  company  will  lose  one 
month's  production  from  the  lease.  Fracturing  and  acid  treating  the  wells 
of  a  lease  can  be  performed  in  any  order,  however,  they  may  not  be  done 
once  pumps  and/or  secondary  recovery  systems  have  been  installed  on  the 
lease.  'The  control  array  also  limits  a  company  from  installing  a  secondary 
recovery  system  on  a  lease  before  the  company  installs  pumps.  If  a  lease 
is  sold  to  another  company,  the  purchasing  company  must  abide  by  the  condi- 
tions of  the  lease,  i.e.  if  a  well  has  been  fractured  it  cannot  be  fractured 
again.  The  diagram  on  the  following  page  illustrates  the  control  array's 
operation. 

A  random  number  is  called  from  the  subroutine  and  compared  with 
the  parameter  FRCFAC  which  is  the  per  cent  chance  in  decimal  form  that  the 
fracture  of  the  well  will  not  effect  the  well's  production.  The  value  for 
FRCFAC  is  set  in  by  the  model  administrator  at  the  beginning  of  the 
simulation.  If  the  random  number  is  less  than  the  value  stored  in  FRCFAC, 
the  program  bypasses  the  fracturing  routine,  charges  the  company  for  the 
fracture  treatment  of  one  well,  and  prints  a  statement  on  the  Lease 
Development  Report  reporting  the  results.  If  the  random  number  is  greater 
than  FRCFAC,  the  program  proceeds  to  adjust  the  initial  well  flow  rate  and 
the  slope  of  the  decline  curve  to  simulate  the  effects  of  a  successful 
fracture  treatment. 
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QZERO(II)  =  QZERO(II)  *  FRFLOW 
BZERO(II)  =  DZERO(II)  *  DECLN 


WRITE  (6,1105)  X,  Z 


Where:  FRFLOW  =  a  number  greater  than  one  used  to  increase  the  initial 
flow  rate 
DECLN  =  a  number  used  to  increase  or  decrease  the  decline  rate 


The  parameters  FRFLOW  and  DECLN  are  set  by  the  model  administrator 
before  the  simulation  begins.  If  it  is  thought  that  the  effects  on  the 
production  quantity  and  on  the  production  decline  are  not  proper,  the 
values  of  the  parameters  may  be  changed  by  locating  them  in  the  carry- 
over deck  and  making  the  proper  adjustments. 

The  next  well  treatment  is  acid  treating  and  it  is  handled  similar 
to  the  fracture  treating  routine. 


686  REQACD(I,K)  =  0.0 

IF  (N0(II).L3.30)  GO  TO  683 
CALL  RANDNO  (RNUM) 
IF  (RNUM.LT.ACDFAC)  GO  TO  688 
QZERO(II)  =  QZERO(II)  *  AC FLOW 
DZERO(II)  =  DZERO(II)  *  DECLN 


WRITE  (6,110?)  X,  Z 

Where:  ACDFAC  =  the  parametric  variable  representing  the  chance  that 
the  acid  treatment  will  not  be  successful 
ACFLOW  =  similar  to  FRFLCW 


The  adjustments  to  the  initial  flow  rate  and  the  slope  of  the 
decline  curve  are  similar  to  that  of  the  fracture  treatment.  They  are 
set  in  the  initial  starting  deck  to  make  acid  treating  less  effective 
than  fracturing. 
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The  next  operation  that  might  be  performed  on  the  lease  is  the 
installation  of  oumos. 


READ  (5,25)  (REQPM?(I,J),J  =  1,4),  (REQSEC(I,J),J  =  1,4) 
DO  643  K  =  1,4 

IF  (RSQ?XP(I,X).EQ.TEM?)  GO  TO  69O 
IF  (RSQSEG(I,K).EQ.TEMP)  GO  TO  691 

648  CONTINUE 


690  REQ?MP(I,K)  =  0.0 

IF  (OILFAC.GE.OILALW)  GO  TO  632 

IF  (NO(II).LE.15)  GO  TO  632 
QZERO(H)  =  QZERO(II)  *  PMFLOW 
DZERO(II)  =  DZERO(II)  *  DECLN 
NO (II)  =  15 
VCFACT(II)  =  VCFACT(II)  *  1.2 

Where:  REQ?M?(I,K)  =  the  array  holding  the  number  of  the  leases  upon 

which  pumps  are  requested  to  be  installed 
REQ3EC(I,K)  =  the  array  holding  the  numbers  of  the  leases  upon 

which  secondary  recovery  systems  are  requested 

to  be  installed 
OILALW     =  a  parameter  holding  the  allowed  monthly  production 

rate  of  oil 
PxMFLO'//     =  similar  to  FRFLOW  and  AC  FLOW 
VCFACT(II)  =  the  variable  cost  factor  used  to  claculate  lease 

operating  costs 


The  installation  of  pumps  on  a  lease  is  handled  in  a  manner  similar 
to  that  of  fracturing  and  well  treating  with  a  few  exceptions.  It  was  felt 
that  the  chance  of  failing  to  produce  results  by  pumping  was  small  and  the 
chance  of  failure  has  been  ignored.  Since  additional  equipment  maintenance 
and  operating  costs  will  occur  with  the  installation  of  pumps,  the  variable 
cost  factor  that  is  used  to  compute  operating  costs  for  the  lease  is 
increased.  Also,  companies  are  restricted  from  going  into  this  phase  of 
production  as  well  as  the  secondary  recovery  phase  that  follows  until  flow 
rates  from  the  wells  droo  below  the  allowed  oil  oroduction  rates. 


l»0 


1 
1 
1 
1 

1 
1 
1 

% 

i 
• 
• 

• 
i 

$ 

1 

1 
1 
1 

• 

■ 
« 

i 

i 

4 

< 
< 
* 

■ 

1 
t 
1 
1 
1 

1 

1 

1 
1 

1 
1 

• 

i 

i 
i 

i 
■ 

il 

i 

I 

i 

1 

1 
1 
■ 

1 

1 
1 

I 
1 

1 

1 
1 

1 

|: 

i 

•i 

j 

1 

i. 

j     ! 

i 
i 

| 

i 

1 

;]      | 
I       i 

i 

1 
1 

If 

.1 

,1 

j 

i 

i 

'!     ' 

| 

1  1 

i 

i 

i 
i 

1 
i 

| 

!  ! 

[j      i 

i 

j  i 

1 

i 

3 

■  I 

\i  ■» 

• 

i 

i 

i    ;i 

j       1 

■         ! 

I 

: 

•*T 

1*4       ,« 

i 

•  j 

• 

•  / 

il 

U     [A 

••     '■    i 

i 

• ,        i 

•i 

r-f  3       -P 

* 

i 

!     • ' 

1       1 

'     i    ' 

! 

•r 

•rt  W 

! 

!         '  i 

!]      i 

*          t       | 

O   O         C 

1 

:   •  i    • 

'       i 

an  o 

)      1 

■ 

1 

/• 

«-  u  c 

i         ! 

1  | 

• 

•  / 

1        O  *-t  (0   *> 

!'       i       1 

1         " 

i         ■ 

I                 > 

i 

; 

'         ',' 

i    i 

i        i 

t| 

:! | : L«j_j_j i 

__'__- 

":'~~'~1 

• 

1          1       z\ 

4».4i   5  >»                V 

■  •        i    i       , 

'    r\ 

O.      3.  t.     1       .';         t                                  ,' 

1     * !       1       '       i       ! 

I1      !            i           ' 

\        '.  V   \ 

3  **  cu  "j     ;       '  ■                          '               , :                 '        i 

1     i                              1 

Ii 

1        i>     l 

1    "c.o      >    \      '•        >.       >                     .1        i       ; 

1 1       t       i       i       , 

■ 

1      V 

,      on«.o    ,         '                 . 

•         i              i 

i      *           , 

X' 

(.  «<  e- 1>    ■     .■  i                                  ii       '              1 

'     •         .       i 

\S*\ 

t     £•<•*     *    ■      *                                   '        '              1            ■' 

A 

1           •  S  h     •        ' '          i                                       1 

. :       ';       1                   ■ 

•                   i 

'      c        3                 ,i                                           ,;                  !     •                    i 

'                                  ;•!/•'        ,      J 

£    l|>  t<    ">>      ,          '                            '                                      1                                                            Ii 

! :             !                 i/              >*-. . 

*S.a  -»•  *    .      '         ■                      ;                                           ' '               ' 

I                         i                              jf                              QC  **~ 

^*55  :    ■         !            :;        ;    :    .   ;:    i    ■        ' 

i           1                      i/*,j                               ^ 

1        <»' ■<  i-i.  C                                 1            ■                         1         l!            1                         I                      •              | 

.                         i    ^r      1 1                — » d.  ui 

■->?.-<  o    I      •         ,       :               1      »•       !                      i      i         !                      . 

p  2  ■*?■  St    i                     •              ■      '                                   '         i       !       , 

-  —  £  J     '                                                 i :                                  .      •  •                                  i 

*>  •  C  a     |       > ,                                                           ,1               i                        ___ 

1        3#T»      '^        '        ♦—•-  —  —  —  —  —  —  ■"*[""'                                               | 

•"■  S .-  °    ;     \                               <•■       ■                                !                   i 

— -          — t/)cc 

i—  <n  v.            ■                                i                               i';i 

•    .-     c  =•-;                                   ;;                             .. 

1         ; 

1)  *-  G     J         l            .          !     .                           >                               , 

•  !*>•<  C       !                                             il                                           ' 

:       '       i 

\                        S\           — '  L 

>  ,J    <3  -J   O           •                                                                                                       | 

1               1 

/*  •            — °° 

t,  »»    'J    C  — ■                                                                          ,  i                                                            1  ' 

: 

:   ,<         1         ,         *C3. 

3      -"—       ':                                                       :        1        i      ■ 

11               1 

:■        Ux-  ■   '•       z1-^    : 

1         O    ??  -W  ^i   (•                                                                         .•                                                            1 

<S          Itf   3. 

■| 

,                     1 

1               ,1>^         I'll            fys:  ^> 

't 

1       n  •:  TJ-"T 

.      -,  s-  ,-.   j-   O 
:      £  o  o  C  «-, 

i     !     i  S  !  i     i  ii 

1                             1 

'     1 

■  «^-n                   i 

i 

II 

ii    i       i"      sj^T 

ji 

IT-    i 

i!'      1    !    !  !    !    i    I  ■  !  ii 

j 

lUJjJ^tlJ-*  J 

•  • 

,           . 

'■                                   ,;                ._'__- 1  _  J-J-— — — 

.'  '                     1       w^     'il                     —  "* 

'      il" 

!         !       • 

1        !        ,      '. 

i!                 i                         — 7"* — '>—  'ij       i 

[      • 

1    ■    1 

1-      ; 

! 

;     I     1        ii 

•  :                  <      •■    ',</•;      <ac 

1      i. 
1      'i 

! 

|     ! 

*i      ' 

:    !  .; 

; 

i     \ 

i    1    1 

1       ! 

;    i 

Ii  \ 

i   ^^  i 

i      ■> 

i 

ii           i 

i         I      ' 

■     i 

i  j 

I      !      ' 

I  '          1 

'  S^;          ' 

1   2 

•1 

,|           1 

1    ; 

i 

!     • , 

i      i      I 

•  I       ! 

^4-                     ' 

PC 

I      |i 

i 

•  1           i 

1 

i     ■ 

■  1 

1      1 

l/^l                      1 

=> 

1    !' 

i 

i 

i 

li          ' 

1     !    • 

1         1       ' 

:        ; 

',1 

i 

i!         !>^" 

,^z     ! 

:i 

I 

t 

l            j 

1 

j 

1     11 

i      ' 

1 1     i  ■  1     I     i  — " 

1 II                                  i        ' 

i/1    <     i 

► 

i 

1 

!'      1 

i     i    ' 

1                j 

i     '.i 

1 

•  t           •                                  I       ^ 

r*         o=  1 

il 
ii 

i 

1 

:i    1 

!     i 

il 

:l    i 

1            i*l 

1 

; 

1 
1 

1 
1 

I 

1 1 

i 

i 
■ 

• 
t 

I 

ii> 

•    |      i 

*"^ 

i 

i 

i 

i 

i 

i 

• •-  "-^ 

i 

\. 

•  , *" 

! 

• 

• 

i— ■*  **" — 1 

\ 

i 

1 

i 

i 

•*"  -n 

*L— -~" 

t 

■ 

i 

i             1 

I 

to. 


The  last  phase  that  production  on  a  lease  may  enter  is  the  second- 
ary recovery  phase. 


691  REQSEC(I.X)  =  0.0 

IF  (OILFAC.GE.OILALW)  GO  TO  632 

IF  (NO(II).EQ.O)  GO  TO  632 
QZERO(II)  =  QZERO(II)  *  SRFLOW 
DZERO(II)  =  DZSRO(II)  *  .9 


NO(II)  =  0 

VCFACT(II)  =  VCFACT  *  1.3 

Where:  SRFLOW  =  a  oarameter  similar  to  FRFLOW,  and  PMFLOW 


The  secondary  recovery  is  also  similar  to  the  pumping  phase.  The 
installation  and  equipment  maintenance  costs  are  greater  than  with  just  the 
pumps  and  are  simulated  by  using  a  larger  factor  multiplied  times  the 
variable  cost  factor.  The  installation  costs  will  be  discussed  further 
in  the  section  on  company  accounting. 

Lease  Production 
Much  of  the  simulation  of  the  lease  development  and  production  is 
based  upon  the  generation  of  production  decline  curves.  It  has  been  stated 
that  there  are  basically  two  classes  of  decline  curves  that  describe  the 

production  rate  decline  of  reservoirs.  These  two  classes  are  the  hyperbolic 

7 

and  the  exponential  curves.   Of  the  two,  the  exponential  class  was  chosen 

to  be  used  in  this  model  because  it  was  simple  to  work  with  and  it  produced 
the  desired  results. 

The  formula  given  to  describe  the  exponential  decline  curve  is: 

Where:  q.  =  the  oil  production  rate  at  time  t 
q  =  the  initial  oil  production  rate 
D  =  the  slooe  of  the  decline  curve 


h2 


See  Appendix  E  for  the  derivation  of  the  equation. 

The  value  of  the  slope,  D,  was  picked  experimentally  for  each 
catagory  of  reservoir  previously  mentioned  in  order  that  the  initial  flow- 
rate  and  the  amount  produced  would  be  within  reasonable  limits.  From  the 
equation  above  and  from  the  equation  given  previously  for  calculating  the 
initial  flow  rate  of  the  wells,  it  can  be  seen  that  when  the  slope,  D, 
multiplied  by  the  value  for  time  equals  one,  about  thirty- seven  per  cent 
of  the  reserves,  producible  by  natural  forces,  have  been  produced.  Also, 
the  flow  rate  at  that  time  is  thrity-seven  per  cent  of  the  initial  well 
flow  rate. 

The  program  first  calculates  an  average  oil  production  factor 
which  would  be  the  production  from  a  well  for  the  month  if  its  well 
factor  was  equal  to  one. 


0IL1  =  QZER0(II)/EX?(DZER0(II)  *  TIME (II)) 

0IL2  =  QZERO(II)/EXP(DZEHO(II)  *  (TTME(II)  +  1.0)) 

OILFAC  =  (0IL1  +  0IL2)/2.0 

Where:  0IL1  =  the  production  rate  at  the  beginning  of  the  first  month 
0IL2  =  the  production  rate  at  the  beginning  of  the  next  month 


The  production  rate  for  the  first  of  the  month  is  calculated  and 
averaged  with  the  production  rate  calculated  for  the  next  month.  Although 
the  line  between  the  two  points  is  a  curve  and  an  average  assumes  it  to  be 
a  straight  line,  the  two  points  are  close  enough  to  give  a  good  approxima- 
tion of  the  average  production  for  the  month. 

Next,  the  program  generates  an  average  producing  gas-oil  ratio 
or  GOR  for  the  month. 


<o 


GFAC  =  G0RINT(II)/10. 

G0R1  =  (1.   +  SIN(3.3M659  *   (3./2.   +  TIME(II)/GFAC)))   *  QZERO(II) 
1  *     30.  /DZER0(II))/0IL1  +  GORINT(II) 

GCR2  =  (1.   +  SIN(3.1iH659  *   (3-/2.   +   (TIMES (II)  +  1.0)/GFAC)))* 
1  QZERO(II)   *     30.  •/DZER0(II)/0IL2  +  GORINT(II) 

GOR     =  (G0R1  +  G0R2)/2.0 

IF  (GOR.LT.GORINT(II)*0.9)  GOR  =  GORINT(II)  *  0.9 

Where:  G0R1  =  the  gas-oil  ratio  at  the  beginning  of  the  month 
G0R2  =  the  gas-oil  ratio  at  the  end  of  the  month 
GOR  =  the  average  gas-oil  ratio  for  the  month 
GFAC  =  a  factor  used  to  vary  the  peak  of  the  gas-oil  ratio  curve 


The  equation  for  the  producing  gas-oil  ratio  was  determined 
experimentally  and  is  based  on  a  skewed  sine  curve  with  time  zero  starting 
at  the  minus  one  point  on  the  curve.  The  resulting  curve  is  similar  to  the 
producing  gas-oil  ratio  curve  that  might  be  plotted  for  a  solution  gas 
drive  reservoir.  An  example  of  the  curve  can  be  seen  on  the  following 
page.  As  can  be  seen  from  the  last  FORTRAN  statement  above,  the  gas-oil 
ratio  was  given  a  low  limit  of  ten  per  cent  less  than  the  initial  gas  oil 
ratio . 

The  next  task  undertaken  is  the  selection  of  the  wells  from  the 
well  number  array  and  the  computation  of  the  individual  well's  monthly 
production.  Since  OILFAC  is  computed  in  daily  production,  it  must  be 
multiplied  by  thirty  to  obtain  the  maximum  monthly  production  rate. 


OILFAC  =  OILFAC  *  30. 

DO  683  K  =  1,1000 

IF  (WELNUM(K,1).EQ.TEMP)  GO  TO  634 

GO  TO  683 

684  PRD0IL  =  PREOIL  +  OILFAC  *  WELNUM(K,2) 
683  CONTINUE 


Where:  PRDOIL  =  the  monthly  production  of  oil 
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When  the  program  comes  to  a  well  number  assigned  to  the  lease  in 
array  WELNUM(K,l),  it  calculates  the  well  production  by  multiplying  the 
well  factor  times  the  maximum  average  monthly  production.  At  the  same 
time  this  result  is  added  to  the  sum  of  the  production  from  the  other 
wells  on  the  lease. 

Next,  the  total  monthly  production  is  checked  against  the  allowable 
production  for  the  month. 


X  =  NWELLS(H) 

H0LD2  =  PRDOIL 

IF  (PRDOIL  .GT.X*0ILALW)  PRDOIL  =  X  *  OILALW 

PRDGAS  =  PRDOIL  *  GOR  *  0.001 

IF  (PRDGAS    .GT.X*GASLALW)  PRDGAS  =  GASALW  *  X/(G0R  *  0.001) 

PRDGAS  =  PRDOIL  *  GCR  *  0.001 

OILPRD(II)  =  CILPRD(II)  +  PRDOIL 

GASPRD(II)  =  GASPRD(I)  +  PRDGAS 

TIME (II)  =  TIME (II)  +  PRDCIL/H0LD2 

Where:  GASALW  =  the  allowable  gas  production  for  the  month 
OIIALW  =  the  allowable  oil  production  for  the  month 
X  =  the  number  of  producing  wells  on  the  lease 
PRDGAS  =  the  monthly  production  of  gas 


The  program  limits  the  production  of  oil  to  that  of  the  monthly  oil 
allowable.  Next,  the  gas  production  is  computed  and  if  the  gas  production 
exceeds  the  monthly  gas  production  allowable,  the  amount  of  oil  produced 
is  limited  to  the  amount  that  will  produce  the  gas  allowable.  The 
cumulative  time  of  production  for  the  lease  is  now  incremented  by  the 
fraction  determined  by  dividing  the  amount  of  oil  actually  produced  by 
the  amount  of  oil  that  could  have  been  produced  if  not  limited  by  the  oil 
or  gas  allowable.  The  program  now  proceeds  to  the  drilling  routines, 
the  next  month's  production,  or  to  the  lease  accounting  routine. 
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Conclusion 

The  methods  and  procedures  used  to  simulate  lease  development 
and  production  have  been  greatly  simplified.  The  results  obtained, 
however,  are  in  the  realm  of  possibility.  With  further  study  and  develop- 
ment, this  part  of  the  model  could  be  greatly  refined  to  better  simulate 
real  life  conditions. 


CHAPTER  IV 

LEASE  AND  COMPANY  ACCOUNTING 

Lease  Accounting; 
Federal  taxation  is  a  major  consideration  before  transactions 

on  property  can  be  completed,  for  about  half  of  the  net  operating  income 

p 

of  a  company  is  paid  out  as  corporate  taxes.   An  important  deduction 

that  is  taken  before  the  calculation  of  Federal  taxes  that  oil  companies 
enjoy  is  the  depletion  allowance  deduction.  This  allowance  is  granted 
as  a  return  of  investment  in  a  piece  of  property  theoretically  at  the 
same  rate  that  the  property  depreciates  in  value  as  the  oil  is  removed. 

Section  6l^(a)  of  the  Internal  Revenue  Code  states:   "For  the 
purpose  of  computing  depletion  allowance  in  the  case  of  mines,  wells, 
and  other  mineral  deposits,  the  term  'property'  means  each  separate 
interest  owned  by  the  taxpayer  in  each  mineral  deposit  in  each  separate 
tract  or  parcel  of  land."  This  is  interpreted  to  mean  that  to  be  a 
unit  of  land  for  depletion  computation  purposes,  the  taxpayer  must  have 
the  same  interest  in  all  parts  of  the  unit,  he  must  have  acquired  them 

at  the  same  time,  the  unit  must  be  a  contiguous  tract,  and  the  unit  must 
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have  been  acquired  from  the  same  assignor.   For  the  purposes  of  this 

simulation,  each  lease  will  be  considered  as  a  single  unit  for  the 
computation  of  depletion.  It  was  necessary  to  perform  the  lease  account- 
ing before  the  company  accounting  because  depletion  must  be  calculated 
on  a  single  unit  basis. 
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Gross  Income  Per  Lease 

The  first  step  in  lease  accounting  is  to  compute  the  gross  revenue 
produced  from  the  operation  of  the  lease. 

REVNUE(II)  =  OILPRD(II)  *  OPRICE  +  GASPRD  *  GPRICE 

Where:  REVNUE(II)  =  the  total  income  for  the  lease 

OILPRD(II)  =  the  amount  of  oil  produced  on  the  lease  for  the 

simulated  time  period  in  standard  tank  barrels 
GASPRD (II)  =  the  amount  of  gas  produced  on  the  lease  for  the 

simulated  time  period  in  thousands  of  standard 

cubic  feet 
OPRICE     =  selling  price  of  oil  per  barrel 
OPRICE     =  selling  price  of  gas  per  thousand  cubic  feet 

The  assumption  is  made  in  the  simulation  that  all  of  the  oil  and 
gas  that  is  produced  on  the  lease  is  sold  immediately.  OPRICE,  the  selling 
price  of  oil,  and  GPRICE,  the  selling  price  of  gas,  are  parameters  that 
are  set  at  the  initial  starting  point  by  the  model  administrator.  The 
simulation  of  market  fluctuation  of  prices  such  as  seasonal  variences 
can  be  accomplished  by  the  variation  of  oil  and  gas  prices  by  the  model 
administrator  if  desired. 

The  next  phase  is  to  compute  the  royalty  payment  and  the  gross 
income. 


ROYLTY(II)  =  ROYL  *  REVNUE(II) 

GROSS (II)  =  REVNUE(II)  -  ROYLTY(II) 

Where:  ROYLTY(II)  =  amount  of  royalties  paid  out  of  revenues 

ROYL  =  rate  of  royalty  payments 

GROSS  =  the  gross  income  for  the  lease 


The  amount  of  royalty  paid  to  the  lessor  is  computed  by  multiply- 
ing the  royalty  rate  ROYL  times  the  earned  revenue  REVNUE(II).   The  royalty 
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rate  is  normally  set  by  the  terms  of  the  lease,  but  in  the  simulation 
the  royalty  rate  ROYL  is  a  parameter  set  by  the  model  administrator 
usually  at  the  initial  starting  point  and  it  is  not  changed  during  the 
simulation. 

The  gross  income  of  the  lease,  which  is  represented  by  the  variable 
GROSS (II),  is  simply  the  total  revenue  minus  the  royalties  paid. 

Equipment  Renewal 

There  is  a  certain  amount  of  tangible  equipment  on  a  producing 
oil  lease,  such  as  pumps,  separators,  pipes,  tanks,  etc.,  that  is  used 
to  get  the  oil  out  of  the  reservoir  and  process  it  for  shipment.  This 
tangible  equipment  will  wear  out  with  age  and  must  be  serviced  or  replaced. 
In  the  model,  the  companies  are  allowed  to  renew  tangible  equipment  on  a 
maximum  of  eight  leases  per  simulated  time  period. 


READ  (5,11)  (RENEW(I,J,l),  J  =  1,3) 
READ  (5,11)  (RENEV/(I,J,2),  J  =  1,8) 

DO*6oYk'=  1,8* 

IF  (RENEW(I,K,1).LE.0.01)  GO  TO  608 

N  =  RENEW(I,K,l) 
IF  (N.EQ.LESSEE(I,J))  GO  TO  605 
60^4-  CONTINUE 

Where:  RENEW(I,K,l)  =  the  array  holding  the  numbers  of  the  leases  x^here 

the  requested  equipment  renewal  is  to  be  made 

RENEW(I,K,2)  =  the  array  holding  the  amount  in  dollars  of  the 
equipment  to  be  renewed 

N  =  a  temporary  variable  used  to  change  a  floating 

ooint  variable  to  a  fixed  ooint  variable 


To  renew  equipment  on  a  lease,  the  student  punches  the  lease 
numbers  of  the  leases  on  which  it  is  desired  to  renew  equipment  in  the 
first  equipment  renewal  card  starting  in  the  left  most  field.  In  the 
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corresponding  field,  on  the  second  equipment  renewal  card,  is  punched  the 
dollar  amount  value  of  the  equipment  desired  to  be  renewed. 

When  the  computer  reaches  the  equipment  renewal  section  on  the 
model,  it  tests  to  see  if  the  company,  whose  leases  it  is  processing  on 
a  particular  loop,  desires  to  renew  equipment  on  any  of  its  leases.  If 
the  company  does  desire  to  renew  equipment  on  a  lease,  the  lease  numbers 
of  the  requested  equipment  renewals  are  checked  to  determine  if  the  lease 
being  processed  is  one  of  them.  If  there  is  no  equipment  to  be  renewed 
on  the  lease  being  processed,  the  program  by-passes  the  equipment  renewal 
section.  When  there  is  equipment  to  be  renewed,  the  program  computes  a 
factor  to  determine  the  effect  of  the  renewal  on  the  overall  life  of  the 
equipment  and  the  variable  cost  factor. 


605  FACTOR  =  (EQCOST(II)  -  TANG(II))/RENEW(I,K,2) 
IF  (FACTOR. LT. O.75)  FACTOR  =  0.^5 
IF  (FACTOR. GT. 20.0)  FACTOR  =  20.0 

Where:  FACTOR     =  a  variable  which  is  an  indicator  of  the  effect 

of  the  amount  of  equipment  renewal  on  the  equipment 
life 
EQCOST(II)  =  original  equipment  cost 


The  variable  FACTOR  is  computed  by  dividing  the  equipment 
depreciation,  which  is  equal  to  the  original  cost  EQCOST(II)  less  the 
undepreciated  value  contained  in  the  variable  TANG (II),  by  the  value 
invested  in  the  renewed  equipment.  Limits  were  then  set  on  FACTOR  for 
the  following  two  reasons.  First,  the  FACTOR  is  limited  to  a  lower  limit 
of  0.75,  because  it  was  felt  that  if  all  of  the  equipment  was  completely 
replaced  and  also  taking  into  account  improvements  on  the  equipment,  the 
new  equipment  would  probably  not  increase  effectiveness  much  more  than 
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twenty- five  per  cent  over  the  original  equipment  when  it  was  new.  Second, 
the  upper  limit  was  established  to  prevent  a  very  small  renewal  request 
from  jamming  the  program.   The  number  twenty  was  an  arbitrary  number. 


TANG (II)  =  TANG (II)  +  RENEW ( I, K, 2) 

IF  (EQCOST(II).LT.TANG(II))  EQCOST(II)  =  TANG(II) 


The  first  statement  above  adds  the  amount  of  renewal  to  the 
undepreciated  amount  of  the  equipment  in  order  that  a  new  depreciation 
schedule  will  be  followed.  Next,  the  original  cost  of  the  old  equipment 
is  compared  with  the  new  equipment  cost.  If  the  new  equipment  cost  is 
higher,  the  original  cost  is  set  equal  to  the  new  amount. 

When  the  equipment  is  completely  renewed,  the  equipment  variables 
in  the  program  are  returned  to  the  state  they  were  in  when  the  equipment 
was  new. 


VCFACT(II)  =  VCFACT(II)  *  FACTOR 

RQAGE(II)  ■=  0.0 

EQLIFE(II)  =  EQLIFE(II) /FACTOR 

Where:  VCFACT(II)  =  the  variable  cost  factor  for  determining  the  variable 

production  cost  per  barrel  of  oil 
EQLIFE(II)  =  the  expected  life  of  the  equipment  in  months 
EQAGE(II)  =  the  age  of  the  equipment  in  months 


The  variable  VCFACT(II)  is  used  to  compute  the  variable  production 
cost  per  barrel  of  oil.  This  cost  factor  is  originally  set  in  by  the 
model  administrator  for  what  might  be  termed  as  standard  original  equip- 
ment. If  improved  equipment  is  installed,  the  basic  cost  factor  is 
reduced  by  dividing  it  by  the  effect  variable  FACTOR.  Next,  the  equipment 
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age  for  the  lease,  represented  by  the  variable  E^AGE(II),  is  set  to  zero 
for  the  equipment  is  supposedly  returned  to  its  original  or  better 
condition.  Also,  if  better  equipment  is  installed,  the  equipment  life 
is  usually  longer  than  that  of  the  original  equipment.   The  new  equip- 
ment life  is  extended  by  dividing  the  original  equipment  life,  represented 
by  EQLIFE(II),  by  FACTOR  and  the  quotient  is  stored  back  in  EQLIFE(II). 

IF  (FACTOR. GT. 1.0)  GO  TO  60? 
60?  EQLIFE(li)'=#EQLiFE(il)  +  EQAGS( II) /FACTOR 

The  amount  of  money  invested  in  equipment  renewal  at  times  will  be 
less  than  the  amount  of  the  original  equipment  depreciation.  T/Jhen  this 
happens,  the  equipment  life  is  increased  by  adding  an  amount  equal  to 
the  equipment  age  or  EQAGE(II)  divided  by  FACTOR.  As  will  be  shown  later, 
this  will  effectively  reduce  the  variable  production  costs  per  barrel 
of  oil. 

Lease  Operating  Costs 

Lease  operating  costs  are  defined  for  this  work  as  the  direct 
costs  to  operate  the  lease.   The  fixed  cost  portion  is  the  cost  of  labor 
which  includes  both  the  hourly  wage  and  fringe  benefits.  The  variable 
cost  portion  concerns  the  costs  occuring  from  the  use  of  power  for  pumps 
and  compressors,  and  equipment  maintenance  costs  including  both  labor  and 
parts. 


608  TEMP  =  NWELLS  *  10 

VAR  =  VCFACT(II)  *  EXP(E^4.GE(II)/EQLIFS(II)) 

OPCOST(II)  =  XLNGTH  *  TEMP  *  (PAY(I)  +  EMPBEN(I))  +  VAR  *  OILPRD(II) 
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Where:  VAR       =  the  variable  cost  to  produce  one  barrel  of  oil 
OPCOST(II)  =  the  total  operating  cost  for  the  lease  for  this 
simulated  time  oeriod 


Variable  production  costs  are  computed  as  an  exponential  function 
utilizing  the  ratio  of  the  equipment  age  to  equipment  life  (EQAGE(II)/ 
EQLIFE(II)).  As  mentioned  above,  variable  costs  will  decrease  if  equip- 
ment is  partially  renewed,  for  the  life  of  the  equipment  is  increased 
which  in  turn  reduces  the  value  of  the  exponent.  When  equipment  is 
completely  renewed  or  improved  equipment  is  installed,  EQAGE(II)  is  set 
to  zero  and  the  value  of  the  function  is  one,  therefore,  variable 
production  costs  start  back  at  the  bottom  of  the  curve  and  are  equal  to 
VCFACT(II).  In  the  case  of  improved  equipment  being  installed,  EQLIFE(II) 
was  increased  which  effectively  will  delay  the  buildup  of  variable  costs 
resulting  in  a  cost  savings  to  the  company. 

Equipment  Depreciation 

Depreciation  is  defined  as  a  reasonable  allowance  for  the  exhaus- 
tion, wear  and  tear,  and  normal  obsolescence  of  property  used  in  a  trade 
or  business.    This  allowance  is  deductable  from  revenues  before  computing 
the  Federal  tax  on  income. 

Depreciation  can  be  calculated  by  one  of  three  methods:   the 
straight  line  method,  the  declining  balance  method,  or  the  sum  of  the 
year-digits  method.    Any  one  of  the  three  methods  may  be  chosen,  but 
once  a  method  is  chosen,  it  cannot  be  changed,  with  one  exception.   The 
195^  Tax  Code  allows  property  owners  to  change  from  the  declining  balance 
method  to  the  straight  line  method  as  long  as  the  new  rate  is  less  than  or 

equal  to  the  rate  that  would  have  resulted  if  the  straight  line  method  had 
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originally  been  used. 
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The  model  is  programed  in  such  a  manner  as  to  simulate  the 

allowances  of  the  Tax  Code.  Companies  are  allowed  to  either  choose  a 

depreciation  method  or  elect  to  change  a  depreciation  method  on  a 
maximum  of  eight  leases  per  simulated  time  period. 


DO  610  K  =  1,8 

IF  (NELECT(t,K,l).EQ.II)  GO  TO  611 

610  CONTINUE 
GO  TO  612 

611  IF  (IELECT(II).EQ.O)  IELECT(II)  =  NELECT(I,K,2) 
IF  (IELECT(II).EQ.O)  GO  TO  6l6 

IF  (NELECT(I,K,2).EQ.IELECT(H))  GO  TO  612 

IF  (NELECT(I,K,2).EQ.1.AND.ISLZCT(II).EQ.2)  GO  TO  620 

PENDEP(I,2)  =  PENDEP(I,2)  +  FINE 

PENDEP(I,l)  =  II 

Where:  NELECT(I,K,l)  =  the  lease  number  of  the  lease  for  which  a 

depreciation  method  is  to  be  chosen  or  changed 

NELECT(I,K,2)  =  the  number  of  the  method  that  is  chosen  or  is 
to  be  changed  to 

IELECT(II)    =  the  array  holding  the  elected  method  of  deprecia- 
tion for  a  lease 

PENDE?(I,l)   =  the  lease  number  of  the  lease  for  which  an  unlaw- 
ful election  of  a  depreciation  method  was  made 

PENDEP(I,2)   =  the  array  holding  the  total  amount  of  fines  awarded 
for  unlawful  elections  of  deoreciation  methods 


The  program  first  checks  to  find  out  if  the  company  has  chosen,  or 
has  elected  to  change  a  depreciation  method.   A  company  may  choose,  or 
elect  to  change  a  depreciation  method  by  punching  the  number  of  the  lease, 
for  which  the  desired  choice  or  change  is  to  be  made,  in  the  first  field 
of  the  depreciation  elect  card.  The  method,  chosen  or  elected  to  be  changed, 
is  punched  into  the  corresponding  field  in  the  second  depreciation  elect 
card.  If  no  lease  numbers  are  detected,  the  program  continues  to  the  next 
section. 

When  a  lease  number  is  found,  the  depreciation  method  holding 
array  IELECT(II)  is  tested  to  determine  if  the  method  entry  is  an 
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initial  choice.   If  it  is  an  initial  choice,  IELECT(II)  will  equal  zero 
and  the  program  will  then  set  it  equal  to  the  method  chosen.   Should  a 
company  fail  to  punch  a  method  in  the  second  card  and  IELECT(II)  equals 
zero,  the  model  will  allow  no  depreciation  on  the  equipment  on  the  affected 
lease  for  that  simulated  time  period.   The  program  next  determines  if  an 
election  to  change  depreciation  methods  is  lawful.  If  it  is  not,  the 
company  is  fined  for  attempting  to  make  an  unlawful  change  of  deprecia- 
tion methods  and  a  notice  is  printed  in  the  remarks  section  on  the 
company's  financial  status  sheet.  The  amount  in  the  parameter  FINE  is  - 
the  same  amount  used  previously  for  penalties. 

The  holding  array  is  now  checked  to  find  out  what  method  of 
equipment  depreciation  is  to  be  used. 


612  IF  (IELECT(II).EQ.O)  GO  TO  6l6 

IF  (IELECT(II).EQ.l)  GO  TO  6U 

IF  (IELECT(II).EQ.2)  GO  TO  615 

IF  (IELECT(II).GT.3)  GO  TO  609 


Again  if  IELECT(II)  equals  zero  which  indicates  now  that  an 
initial  choice  of  depreciation  method  has  not  been  made,  no  depreciation 
will  be  allowed  for  the  lease  equipment  for  that  simulated  time  period. 
If  IELECT(II)  equals  one  or  is  greater  than  three,  the  straight  line 
method  will  be  used.  If  IELECT(II)  equals  two,  the  declining  balance 
method  will  be  used.   If  lELECT(II)  equals  three,  the  sum  of  the  year- 
digits  method  will  be  used. 


Glh   DEPREC(II)  =  TANG(II)/EQLIFE(II) 

IELECT(II)  =  DEPREC(II) 

GO  TO  616 

609  DEPREC(II)  =  IELECT(II) 
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Where:  DEPREC(II)  =  the  amount  of  depreciation  to  be  taken  for  the 

lease  for  this  period 


When  the  straight  line  method  of  depreciation  is  initially  chosen, 
the  program  computes  the  amount  of  depreciation  per  month  that  can  be  taken 
for  the  lease  by  dividing  the  depreciable  value  of  the  equipment  by  the 
expected  life  of  the  equipment  (TANG(II)/EQLIFE(II) ).  The  amount  of 
depreciation  is  then  stored  in  IELECT(II)  in  order  that  the  same  amount 
can  be  used  until  the  equipment  is  completely  depreciated  in  value.   If 
equipment  is  renewed  on  the  lease  and  the  straight  line  method  is  being 
used  for  that  lease,  IELECT(II)  is  reset  equal  to  one  and  the  program 
recomputes  a  new  rate  of  depreciation  and  stores  it  in  IELECT(II). 

For  computation  of  depreciation  by  the  declining  balance  method, 
the  following  formula  was  used: 

BOOK  VALUE  AT  THE  END  OF  Uth  YEAR  =  P(l  -  D)U 

Where:  P  =  the  initial  cost  of  the  equipment 
D  =  the  constant  depreciation  rate 
U  =  the  last  year  depreciation  was  taken 

615  DRATE  =  24./EQLIFE(II) 


TEMP     =  MESES/12 

TEMP     =  EQCOST(II)   *   (l.O  -  DRATE )**TEMP 

GO  TO  619 


619  DEPREC(II)  =  DRATE  *  TEMP  *  TIMFAC 

Where:  DRATE  =  the  constant  depreciation  rate 

TEMP   =  a  temporary  variable  used  as  both  the  year  for  which 

book  value  is  being  computed  and  the  book  value  computed 
TIMFAC  =  the  fraction  of  a  year  that  the  simulated  period 

reoresents 


The  constant  depreciation  rate  or  DRATE  is  computed  by  dividing 
twenty-four  by  the  equipment  life  (2^. /EQLIFE(II))  since  the  rate  is 
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actually  twice  the  fractional  part  of  the  cost  per  year  that  would  be 
taken  as  depreciation  using  the  straight  line  method.   The  number  twenty- 
four  was  used  because  EQLTFE(II)  is  in  months.  A  temporary  variable  TEMP 
is  now  used  to  store  the  number  of  the  year  that  depreciation  was  last 
taken.  This  is  computed  by  dividing  the  total  amount  of  simulated  time 
that  is  stored  in  MESES  by  twelve.  Temp  is  again  used  to  store  the  book 
value  which  is  computed  for  the  end  of  that  year.  Finally,  the  deprecia- 
tion is  calculated  by  multiplying  the  book  value  at  the  end  of  the 
previous  year  times  the  constant  depreciation  rate,  times  the  fraction 
of  the  year  being  simulated  for  this  period. 

The  sum  of  the  year-digits  method  is  actually  calculated  by  months 
instead  of  years.  The  annual  result  will  be  the  same  although  the  monthly 
amount  will  vary  a  small  amount. 


LIFE  =  EQLIFE(II) 
DO  6^0  K  =  1,LIFE 
X  =  K 
6^0  TEMP  =  TEMP  +  X 

X  =  EQAGE(II)  +1.0 

IF  (EQAGE(II).LE.O.Ol)   X  =  0.0 

DO  6^1  K  =  1, LENGTH 

DEPREC(II)   =  DEPREC(II)  +   (EQLIFE(II)   -  X)/TEMP  *  EQCOST(II) 

641  x  =  x  +  i.o 

GO  TO  616 

Where:  LIFE   =  equipment  life  as  a  fixed  point  variable 

TEMP   =  a  temporary  variable  representing  the  sum  of  the 

months  digits 
LENGTH  =  length  in  months  of  the  simulated  oeriod  being  run 


The  first  four  statements  above  compute  the  denominator  of  the 
digits  fraction.  This  number  will  be  the  same  for  the  life  of  the 
equipment  unless  the  equipment  is  partially  renewed,  however,  it  is 
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recomputed  each  time  to  save  computer  storage  space.   The  depreciation 
is  determined  by  a  summation  of  the  depreciation  calculated  for  each 
month  for  the  number  of  months  in  the  simulated  period. 

Net  Income  Before  Depletion 

Net  income  before  depletion  is  calculated  next  in  order  to  deter- 
mine which  type  of  depletion  method  will  be  used. 

TEMP  =  (BOSS (II)   -  XLOSS(II)   -  DEPREC(II)   -  DRILCS(II)  -  (PCOSI(II) 

T.fl/here:   TEMP  =  a  temporary  variable  in  which  net  income  before 

depletion  is  stored 
DRILCS(II)  =  drilling  costs  that  are  deduc table  as  expense 
XLOSS(II)  =  losses  that  are  deductable 

Net  income  before  depletion  is  found  by  subtracting  deductable 
expenses  from  gross  income.  The  deductable  expenses  are  deductable  losses, 
depreciation,  deductable  portion  of  drilling  costs,  and  lease  operating 
costs. 

Depletion 

Depletion  for  intangible  assets  may  be  compared  with  deprecia- 
tion for  tangible  assets.  It  is  an  allowance  for  the  decrease  in  value 
of  the  lease  as  the  oil  and  gas  are  removed. 

Two  methods  of  computing  depletion  are  used.  One  is  cost  deple- 
tion and  the  other  is  percentage  depletion. 


H0LD2  =  INTANG(II)  *  OILPRD(II)/RESORS(II) 
RESORS(II)  =  RESORS(II)  -  OILPRD(II) 
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Where:  H0LD2      =  a  temporary  variable  where  the  cost  depletion 

amount  is  stored 
RESORS(II)  =  the  amount  of  recoverable  oil  that  is  estimated 

to  be  in  the  reservoir  for  this  lease 
INTANG(II)  =  the  intangible  assets  assignable  to  the  lease 


Cost  depletion  is  calculated  by  multiplying  the  uncapitalized 
intangible  assets  represented  by  INTANG(II)  times  the  fraction  produced 
by  dividing  the  amount  of  oil  produced  or  OILPRD(II)  by  the  amount  of 
recoverable  oil  in  the  reservoir.  The  intangible  assets  are  then 
reduced  by  the  calculated  amount  of  depletion,  and  the  recoverable  oil 
in  the  reservoir  is  reduced  by  the  amount  of  the  oil  produced. 


IF  (TEMP.LE.H0LD2)  GO  TO  617 
617  DEPLET(II)"=  H0LD2* 

•Where:  DEPLET(II)  =  the  amount  of  depletion  computed  for  the  lease 

for  this  time  period 
TEMP      =  the  temporary  variable  representing  net  income 

before  depletion 
H0LD2      =  the  temporary  variable  representing  the  cost 

deoletion  amount  calculated  for  the  oeriod 


The  first  statement  tests  to  determine  if  the  amount  of  cost 
depletion  calculated  is  greater  than  the  net  income  before  depletion. 
If  the  cost  depletion  is  greater,  the  cost  depletion  amount  is  the  amount 
of  depletion  to  be  used  for  the  lease  for  this  period,  and  percentage 
depletion  is  not  calculated.  This  normally  occurs  during  the  early  stages 
of  lease  development  when  drilling  costs  are  high  and  production  is  low. 

When  the  cost  depletion  amount  is  less  than  the  net  income  be- 
fore depletion,  percentage  depletion  is  then  computed. 
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PERDPL  =  0.275  *  GROSS (II) 

IF   (PERDPL. GI. (0.5  *  TEMP))  PERDPL  =  0.5  *   TEMP 

IF   ( PERDPL. GT.H0LD2)  DEPLET(II)   =  PERDPL 

Where:  PERDPL  =  the  amount  of  percentage  depletion  calculated 


Percentage  depletion  is  defined  as  twenty- seven  and  one  half 
per  cent  of  the  gross  income,  but  it  is  limited  to  fifty  per  cent  of  the 
net  income  before  depletion.  The  percentage  depletion  amount  is  calculated 
in  the  first  statement  above  and  compared  to  the  limitation  of  fifty  per 
cent  of  net  before  depletion  in  the  second  statement.  It  is  then  checked 
to  see  if  cost  or  percentage  depletion  is  greater.  The  larger  value  of 
the  two  will  be  the  amount  of  depletion  used. 

Net  Income  Before  Taxes 

Net  income  before  taxes  is  computed  to  provide  a  gage  to 
determine  how  well  the  lease  is  doing  toward  contributing  to  the  income 
of  the  company. 

623  BTXNET(II)  =  TEMP  -  DEPLET(II) 
Where:  BTXNET(II)  =  the  net  income  before  taxes 

The  net  income  before  taxes  amount  is  computed  by  subtracting 
the  calculated  depletion  allowance  from  the  net  income  before  depletion. 

Company  Accounting; 
The  purpose  of  the  accounting  for  the  company  transactions  is 
to  reflect  the  financial  oosition  of  the  companies  at  the  end  of  each 
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simulated  time  period.  This  position  can  be  utilized  by  analysis  to 
base  future  financial  and  engineering  decisions  upon.  It  can  also  be 
used  by  the  model  administrator  to  grade  the  progress  of  the  companies. 
The  accounting  procedure  might  be  thought  of  as  simply  keeping  score  for 
the  companies  and  the  Financial  Status  Sheet  reflects  the  final  score  at 
the  end  of  the  period. 

It  is  common  in  real  life  for  companies  to  keep  two  sets  of 
accounting  books:  one  set  for  tax  purposes  and  one  set  to  "present  a 
sound  picture  of  the  economics  surrounding  a  venture."    This  model 
effectively  uses  only  one  set  of  simulated  books  that  attempts  to  perform 
the  functions  of  the  two. 

At  the  initial  starting  point  of  the  simulation,  all  companies 
start  at  the  same  financial  position.  Each  company  will  have  an  equal 
amount  of  current  and  fixed  assets  distributed  in  the  same  manner. 

To  start  the  accounting  process  for  a  simulated  time  period,  the 
companies'  present  financial  status  according  to  the  balance  sheet  is 
read  into  the  comoutor. 


DO  110  I  =  1,N?LAY 

READ  (5,11)  CASH(I),ASSET3(I),ACCREC(I),ACC?AY(I),INVEST(I), 

STLOAN ( I ) , BONDS ( I ) , MQUOTE ( I ) 


110  CONTINUE 

Where:  CA3H(I)   =  the  cash  on  hand 

ASSETS (I)  =  the  total  assets  of  the  company 

ACCREC(I)  =  the  accounts  receivable 

ACCPAY(I)  =  the  accounts  payable 

INVEST (I)  =  the  outside  investments  of  the  company 

STLOAN(I)  =  the  amount  of  short  term  loans  outstanding 

BONDS (I)  =  the  amount  of  bonds  outstanding 

MQUOTE(I)  =  the  present  market  quote 
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At  the  initial  starting  point  of  the  simulation,  the  values 
read  in  are  punched  in  the  cards  of  the  starting  data  deck.  An  administrator 
may  easily  change  these  values  if  he  so  desires.  The  market  quote,  indicated 
above,  will  equal  the  book  value  at  the  start  of  the  simulation. 

The  Acquisition  of  Capital 

The  acquisition  of  capital  by  a  company  is  very  important  to 
its  financial  stability.  The  right  amount  of  capital  must  be  on  hand  at 
all  times  to  take  advantage  of  opportunities  within  the  scope  of  the 
company* s  operations  as  the  opportunities  present  themself.  On  the  other 
hand,  idle  cpaital  is  costly  and  should  not  be  accumulated  without  a  need 
for  it. 

The  program  provides  three  methods  to  acquire  capital:  by  obtain- 
ing a  short  term  loan,  by  selling  bonds  which  is  considered  a  long  term  . 
loan,  and  by  selling  stock.  The  first  method  to  be  discussed  is  a  request 
for  a  short  term  loan. 


IF  (REQLNS(I).LT.O.l)  GO  TO  127 

CRATIO  =  (CASH(I)  +  ACCR2C(I))/(ACC?AY(I)  +  STLOAN(I)) 

IF  (CRATIO. LE. 2.0)  RSQLNS(I)  =  0.0 

IF  (CRATIO. LE. 2.0)  GO  TO  129 

TEMP  =  (CASH(I)  +  ACCRSC(I)  -  2.0  *  ACCPAY(I))/2.0  -  STLOAN(I) 

IF  (REQLNS(I).LE.TEMP)  GO  TO  129 

REQLN3(I)  =  TEMP 

Where:  REQLNS(I)  =  the  amount  a  company  is  requesting  for  a  short  term 

loan 
CRATIO    =  the  ratio  of  current  assets  to  current  liabilities 
TEMP     =  the  maximum  amount  that  can  be  borrowed  as  a  short 

term  loan  to  make  the  current  ratio  equal  to  two 


The  first  statement  above  tests  to  see  if  the  company  has  requested 
a  short  term  loan,  and  if  it  has  not  the  program  bypasses  this  routine.  If 
it  has,  the  current  ratio  is  next  computed  for  the  company. 


63 


The  current  ratio,  sometimes  referred  to  as  the  "bankers'  ratio" 
is  frequently  used  to  measure  a  company's  ability  to  pay  its  bills  by 
money  lending  organizations.  5  A  common  ratio  used  is  a  ratio  of  2-to-l, 
however,  some  authors  question  the  validity  of  using  the  current  ratio  as 
a  measure  of  the  financial  strength  of  a  company.    This  2-to-l  ratio  is 
used  as  a  standard  in  the  model  to  limit  the  amount  a  company  may  borrow 
by  using  the  short  term  loan.  If  the  company's  current  ratio  is  less  than 
or  equal  to  the  standard,  company  will  not  get  the  loan,  and  the  request 
will  be  ignored.  If  the  current  ratio  is  greater  than  the  standard,  the 
program  computes  the  amount  that  will  make  the  ratio  equal  to  the  standard. 
It  then  compares  this  amount  with  the  amount  of  the  loan  requested.  When 
the  amount  requested  is  less  than  the  amount  that  will  make  the  ratio  equal 
to  the  standard,  the  total  amount  requested  will  be  loaned  to  the  company. 
When  the  amount  requested  will  make  the  current  ratio  less  than  the  standard, 
the  amount  loaned  is  limited  to  the  amount  that  will  make  the  current 
ratio  equal  to  the  standard. 

Companies  may  pay  off  short  term  loans  by  requesting  a  minus  loan. 


12?  IF  (REQLNS(I).LT.(-O.l))  GO  TO  128 

GO  TO  129 
128  STLOAN(I)  =  STLOAN(I)  +  REQLNS(I) 

CASH(I)   =  CASH(I)   +  REQLNS(I) 


Companies  have  the  option  of  paying  off  short  term  loans  at  their 
discretion.  In  the  last  two  statements  above,  since  in  both  cases  the  loan 
request,  RSQLNS(I),  will  be  negative,  adding  the  value  of  the  request  to 
cash  and  short  term  loans  will  reduce  their  values  by  the  amount  of  the 
request. 
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The  next  method  of  capital  acquisition  is  by  borrowing  of  a  long 
term  loan  which  is  the  selling  of  bonds  in  the  model. 


IF  (REQ3ND(I).LT.0.1)  GO  TO  706 

TEMP  =  PAYCAP(I)  +  RTEARN(I) 

IF  (BONDS(I).GE.TEMP)  REQBND(I)  =  0.0 

IF  (BONDS (I ).LT. TEMP)  TEMP  =  TEMP  -  BONDS (I) 

IF  (TEMP.GE.REQBND(I))  GO  TO  706 

REQBND(I)  =  TEMP 

Where:  REQBND(I)  =  the  amount  of  the  bonds  requested  to  be  sold 

BONDS (I)  =  the  amount  of  the  bonds  the  company  has  outstanding 
TEMP     =  a  temporary  holding  variable 


The  debt /equity  ratio  is  the  ratio  of  the  long-term  debt  to  the 

total  of  the  long-term  debt  plus  the  ownership  investments,  the  ownership 

17 
investments  being  the  paid  in  capital  plus  the  retained  earnings.    A 

debt/equity  ratio  of  fifty  percent  is  used  to  limit  the  companies  from 
borrowing.  The  debt/equity  will  be  fifty  per  cent  when  the  amount  of 
bonds  is  equal  to  the  sum  of  the  paid  in  capital  plus  the  retained  earn- 
ings. When  a  company  has  bonds  outstanding  equal  to  the  sura  of  the  paid 
in  capital  plus  the  retained  earnings,  they  will  not  be  allowed  to  sell 
more  bonds.  When  they  request  to  sell  bonds,  and  the  debt /equity  ratio 
is  less  than  fifty  per  cent,  the  companies  may  sell  bonds  until  the  ratio 
becomes  fifty  per  cent. 

* 

The  last  method  of  obtaining  capital  for  investment  is  to  sell 
shares  of  company  stock. 


709  BI5T0K  =  SCLDST(I)  *  MQUOT(I) 
PAYCAP(I)  =  PAYCAP(I)  +  BISTOK 
CASH(I)  =  CASH(I)  +  BISTOK 

SHARES(I)  =  SHARES (I)  +  SOLDST(I) 
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Where:  S0LD3T(I)  =  the  number  of  shares  of  stock  to  be  bought  or  sold 
BISTOK    =  a  temporary  variable  holding  the  value  of  the  stock 

either  bought  or  sold 
SHARES (I)  =  the  shares  of  stock  outstanding 


The  companies  may  sell  stock  at  any  time  in  any  amounts  by  merely 
requesting  the  number  of  shares  to  be  sold  that  they  desire.  The  selling 
price  will  be  the  new  market  quote  at  the  end  of  the  simulated  period 
which  will  not  be  known  to  the  companies.  The  cash  and  the  number  of 
shares  outstanding  will  be  adjusted  accordingly.  This  routine  may  also 
be  used  by  companies  who  wish  to  invest  in  their  own  stock  by  buying  it 
at  the  going  market  rate.  This  can  be  accomplished  by  requesting  a  number 
of  minus  shares  to  be  sold. 

Adjusting  Payables  and  Receivables 

The  paying  of  outstanding  bills  thereby  reducing  accounts  payable, 
and  the  collecting  of  outstanding  receipts  thereby  reducing  accounts 
receivable  is  executed  in  the  early  part  of  the  program. 


129  TEMP  =  XLNGTH/TERMSR 

IF  ( TEMP. GT. 1.0)  TEMP  =1.0 
.   CASH(I)  =  CASH(I)  +  ACCREC(I)  *  TEMP 
ACCREC(I)  =  ACCREC(I)  *  (l.O  -  TEMP) 
TEMP  =  XLNGTH/TERM3P 
IF  (TEMP. GT. 1.0)  TEMP  =1.0 
CASH(I)  =  CASH(I)  -  ACCPAY(I)  *  TEMP 
ACCPAY(I)  =  ACCPAY(I)  *  (l.O  -  TEMP) 

Where:  TERMS R  =  the  term  in  months  in  which  the  total  amount  of 
accounts  receivable  will  be  collected 

TERM3P  =  the  term  in  months  in  which  the  total  amount  of 
accounts  payable  will  be  paid 

TEMP   =  a  temporary  holding  variable 
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The  two  variables  indicated  above  as  TERMSR  and  TERMSR  are  para- 
meters set  by  the  model  administrator  at  the  beginning  of  the  simulation. 
They  determine  the  amount  of  time  it  takes  to  collect  all  of  the  receiv- 
ables of  a  company,  and  the  amount  of  time  it  takes  to  pay  all  of  the 
payables  of  a  company.  The  value  of  these  variables  must  be  read  into 
the  computor  in  months.  A  fraction  is  computed  by  dividing  the  length  of 
the  simulated  time  period  in  months  by  the  value  of  either  TERMSR  or 
TERi-SP,  whichever  is  being  calculated.  This  fraction  is  limited  to  one 
in  order  to  prevent  more  receivables  from  being  collected  than  are 
outstanding,  or  more  payables  being  paid  than  are  due.  It  can  easily 
be  seen  that  if  XLNGTH  equals  either  TERMSR  or  TERKSP,  the  total  amount 
outstanding  will  be  either  collected  or  paid,  whichever  is  appropriate. 

Lease  Transactions 

Transactions  involved  in  the  purchase,  sale,  reversion,  and 
abandonment  of  leases  are  carried  out  as  they  occur.  The  first  transaction 
to  be  discussed  is  the  sale  of  leases  by  the  model  administrator. 


213  CASH(I)  =  CASH(I)  -  K0LD2  *  CASHFT 

ACCPAY(I)  =  ACCPAY(I)  +  H0LD2  *  (l.  -  CASHFT) 

221  iF*(kTSLLS(li)'.NE.O.^D.NDEAL.EQ.O)  EQC03T(II)  =  H0LD2  *  EQCSFT 
IF  (NDEAL.EQ.O).TANG(II)  =  EQCOST(II) 
NPDATE(II)  =  2-E3E3  +  1 
INTANG(II)  =  H0LD2  -  TANG (II) 

Where:  CASHFT  =  the  per  cent  of  the  payment  that  must  be  in  cash 

EQCSFT  =  the  per  cent  of  the  purchase  price  that  is  estimated  to 

be  the  cost  portion  related  to  the  tangible  equipment 
H0LD2  =  a  temporary  variable  representing  the  purchase  price 

of  the  lease 
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First,  the  cash  portion  of  the  payment  for  the  lease  purchased  is  paid, 
which  reduces  the  total  cash  of  the  company.  The  remaining  portion  of 
the  payment  is  added  to  the  accounts  payable  account  of  the  company. 
Next,  if  the  lease  being  purchased  is  a  partially  or  fully  developed 
lease,  the  program  uses  the  parameter,  EQCSFT,  to  determine  how  much  of 
the  purchase  price  is  the  cost  of  the  tangible  equipment  on  the  lease. 
The  purchase  date  of  the  lease  is  then  recorded  in  the  array,  NPDATE(II), 
and  the  remaining  part  of  the  purchase  price  is  considered  as  an 
intangible  asset  and  stored  in  the  array,  INTANG(II). 

When  the  sale  of  a  lease  occurs  between  two  companies,  the 
transaction  for  the  purchasing  company  is  the  same  as  if  the  lease  had 
been  bought  from  the  administrator.  The  transaction  for  the  selling 
company  is  handled  in  the  following  manner. 


220  H0LD1  =  TANG (II)  i-  INTANG(II) 

IF  ( H0LD2 . GT . H0LD1 .AND. MES ES  =NPDATE ( II ) . GT . 6 )  GAINLT ( NDEAL )  = 
1  GAINLT (NDEAL)  +  H0LD2  -  K0LD1 

IF  (H0LD2.LT.H0LD1.AND.MESES-NPDATE(II).GT.6J  XLOSLT(NDEAL)  = 
1  XLQSLT (NDEAL)  +  H0LD1  -  H0LD2 

IF  (MESE3  _  NPDATE(II).LE.6.AND.H0LD1.GT.H0LD2) 
1  OTHLOS(NDSAL)  =  OTHLOS (NDEAL)  -  H0LD2  +  H0LD1 

IF  (MESES  -  NTDATE( II ).LE. 6. AND. H0LD1.LT.K0LD2) 
1  OTHINC (NDEAL)  =  OTHINC (NDEAL)  +  H0LD2  -  H0LD1 

CASH  (NDEAL)  =  CASH( NDEAL)  +  H0LD2  *  CA3HFT 

ACCREC (NDEAL)  =  ACCREC (NDEAL)  +  H0LD2  (l.  -  CSAHFT) 

Where:  GAINLT (NDEAL)  =  the  gain  realized  by  the  selling  company  on  a 

lease  held  over  six  months 
XLOSLT (NDEAL)  =  the  loss  realized  by  the  selling  company  on  a 

lease  held  over  six  months 
OTHLOS (NDEAL)  =  the  array  holding  the  selling  company's  ordinary 

business  losses 
OTHINC (NDEAL)  =  the  array  holding  the  selling  company's  income 

that  is  from  other  sources  than  normal  operations 
H0LD1        =  the  total  amount  of  undepleted  and  undepreciated 

assets  of  the  selling  company  in  the  lease  sold 
E0LD2        =  the  selling  price  of  the  lease 
NDEAL        =  the  variable  that  represents  the  selling  company 
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When  one  company  sells  a  lease  to  another  company,  the  selling 
company  ordinarily  realizes  either  a  capital  gain  or  loss.  This  gain 
or  loss  may  be  put  into  one  of  two  classes,  either  it  is  a  long  term 
capital  gain  or  loss  or  it  is  a  regular  business  income  or  loss  from  a 
source  other  than  normal  operations.  The  classification  into  which  a 
gain  or  loss  falls  is  determined  by  the  length  of  time  a  company  has  owned 
the  asset.  If  the  lease  has  been  owned  for  more  than  six  months,  the  gain 
or  loss  is  considered  long  term.  If  the  company  has  owned  the  lease  for 

six  months  or  less,  the  gain  or  loss  is  considered  as  a  regular  business 

,    18 
income  or  loss. 

The  first  and  second  Fortran  statements  above  check  to  determine 
if  there  is  a  gain  or  loss  and  if  the  gain  or  loss  can  be  classified  as 
long  term.  The  next  two  statements  check  to  determine  if  there  is  a  gain 
or  loss  and  if  it  can  be  classified  as  regular  income  or  loss.  Only  one 
of  the  four  statements  will  be  true  for  each  transaction,  and  that 
statement  will  calculate  the  gain  or  loss  and  store  it  in  the  proper  array. 

After  all  of  the  transactions  for  the  simulated  time  period  have 
been  completed,  the  net  long  term  gain,  if  any,  is  computed. 


IF  (GAINLT(I).GT.XLOSLT(I))  GAINLT(I)  =  GAINLT(I)  -  XLOSLT(I) 
IF  (GAINLT(I).LE.XLCSLT(I))  GAINLT(I)  =0.0 


The  net  long  term  gain  is  then  held  for  tax  purposes  and  will  be 
explained  later  in  the  section  of  this  chapter  on  taxation.  All  long  term 
capital  losses  that  cannot  be  matched  against  long  term  capital  gains  are 
considered  ordinary  losses  and  are  matched  against  regular  income.  This 
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procedure  of  matching  long  term  losses  against  regular  income  is  contrary 
to  the  tax  laws  presently  in  force,  however,  it  was  executed  in  this  manner 

because  it  was  simplier  to  program  and  no  carry  back  or  carry  over  is 

19 
involved.    Also,  the  model  takes  no  action  under  Section  12*4-5  and 

Section  1250  of  the  tax  law  which  concerns  the  recapture  of  depreciation 
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as  ordinary  income  when  a  long  term  gain  is  realized. 

'The  transactions  involved  in  lease  reversions  concern  the 
accounting  for  the  intangible  assets  invested  in  the  lease  to  be  reverted. 


IF  (KE3SS-K?DATE(II).LE.6)  OTHLOW(I)  =  OTHLCS(I)  +  INTANG(II) 
IF  (MESE3-NPDATE(II).GT.6)  XLOSLT(I)  =  XLOSLT(I)  +  INTANG(II) 


When  leases  are  reverted,  the  only  capitalized  asset  invested  in 
the  lease  is  normally  the  bonus  paid  for  the  lease  which  is  considered 
as  an  intangible  asset.  The  two  Fortran  statements  above  determine  if 
the  loss  is  a  long  term  or  an  ordinary  loss  and  stores  the  amount  in 
the  proper  array. 

The  same  method  is  used  for  the  transactions  involving  lease 
abandonment,  however,  there  may  be  some  tangible  assets  that  must  be 
included  and  also  the  costs  of  abandoning  the  lease  must  be  accounted 
for. 


2$U  WELLS  =  NWELLS(II) 

ABDCOS(I)  =  ABDCOS(I)  +  WELLS  *  ABDNFT 

IF  (MES3S-NPDATE(II).LE.6)  0THL03(I)  =  OTHLOS(I)  +  INTANG(II) 
1  +  TANG (II) 
IF  (MESE3-N?DATE(H).GT.6)  XLOSLT(I)  =  XLOSLT(I)  +  INTANG(II) 
+  TANG (II) 

Where:  ABDCOS(I)  =  the  total  abandonment  costs  of  a  company  for  the 

simulated  time  period 
ABDNFT    =  the  cost  per  well  of  abandoning  the  lease 
WELLS     =  the  number  of  wells  on  the  lease  being  abandoned 
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'The  cost  of  abandoning  the  lease  is  considered  a  direct  operating 
expense.  It  is  computed  by  multiplying  the  number  of  wells  on  the  lease 
being  abandoned  by  the  abandonment  cost  factor,  ABDNFT.  This  abandonment 
cost  factor  is  a  parameter  set  by  the  administrator  and  is  used  to  simulate 
the  cost  per  well  of  filling  in  the  wells,  clearing  the  lease  of  tanks  and 
piping,  repairing  the  surface  of  the  lease,  and  all  other  costs  associated 
with  lease  abandonment. 

Lease  Development  Costs 

The  first  cost  to  be  discussed  under  lease  development  is  the  cost 
of  drilling  a  dry  hole. 


EANDD(I)  =  EANDD(I)  +  DRYHCS 

Where:  EANDD(I)  =  the  array  holding  the  deductible  costs  of  exploration 

and  development  of  the  companies 
DRYHCS   =  the  cost  of  drilling  a  dry  hole 


When  a  dry  hole  is  drilled,  the  cost  of  drilling  the  dry  hole  is 
written  off  as  an  expense.  The  cost  per  well  is  represented  by  the  para- 
meter, DRYHCS,  which  is  an  estimated  cost  of  drilling  a  dry  hold  to  some 
average  depth. 

When  a  discovery  or  development  well  is  drilled,  the  cost  of 
drilling  must  be  broken  into  two  segments:  the  intangible  drilling  costs 
that  are  immediately  expensed  and  the  tangible  drilling  costs  that  are 
stored  in  the  array  TANG(II)  and  must  be  depreciated. 


DRILCS(II)  =  DRILCS(II)  +  DRINTG 

CASH(I)  =  CASH(I)  -  CASHFT  *  DRTANG 

ACCPAX(I)  =  ACCPAY(I)  +  (1.0  -  CASHFT)  *  DRTANG 
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TANG(II)  =  TANG(II)  +  DRTAKG 
EQCOST(II)  =  EQCOST(II)  +  DRTANG 

Where:  DRILCS(II)  =  the  total  amount  of  drilling  costs  the  company  may 

expense  for  the  lease  during  a  simulated  time  oeriod 

DRINTG     =  the  intangible  portion  of  the  costs  of  drilling  a 
well 

DRTANG    =  the  tangible  portion  of  the  costs  of  drilling  a  well 


The  intangible  costs  of  drilling  a  well  include  all  costs  of 
clearing  the  land,  making  roads,  completing  the  well,  buying  and  instal- 
ling temporary  equipment  necessary  for  the. drilling  operation,  and 

21 
installing  tangible  equipment  in  the  well.    Tangible  costs  of  drilling 

a  well  include  the  costs  of  the  equipment  in  the  well  such  as  the  cemented 

casing  even  though  it  is  not  recoverable,  and  the  costs  of  all  equipment 

on  the  lease  such  as  pipelines,  tanks,  separators,  etc.,  that  is  necessary 
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for  the  production  of  oil  and  gas  from  the  well.    The  tangible  drilling 

costs  must  also  be  added  to  the  value  of  the  equipment  cost  already  on 
the  lease  in  order  that  the  proper  depreciation  rate  will  be  calculated. 
As  part  of  lease  development,  well  treating  costs  are  handled  in 
a  similar  manner.  If  the  fracturing  or  the  acid  treating  of  a  well  is  not 
successful,  the  costs  are  expensed. 

687  EANDD(I)  =  EANDD(I)  +  FRCCOS 

683  EANDD(i)'=*EANDD(I)  +  ACDCOS 

Where:  FRCCOS  =  the  average  cost  of  fracturing  a  well 

ACDCOS  =  the  average  cost  of  acid  treating  a  well 


The  costs  of  a  successful  well  fracture,  of  a  successful  acid 
treatment,  of  the  installation  of  pumps,  and  of  the  installation  of  a 
secondary  recovery  system  are  all  accounted  for  by  the  same  method. 
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6?6  X  =  NWEUS(II) 
Z  =  X  *  FRCCOS 


z 

= 

X 

* 

ACDCOS 

z 

= 

X 

* 

PMPCOS 

z 

= 

X 

* 

SECCOS 

631  EANDD(I)  =  EANDD(I)  +  Z  *  0.4 

Y  =  Z  *  0.6 

TANG(II)  =  TANG(II)  +  Y 
CASH(I)  =  CASH(I)   -  Y  *  CASHFT 
ACCPAY(I)   =  ACCPAY(I)  +  (l.   -  CASHFT)   *  Y 
EQCOST(II)  =  EQCOST(II)  +  Y 

Where:  PMPCOS  =  the  total  cost  of  installing  a  pump  on  one  well 

SECCOS  =  the  total  cost  of  installing  a  secondary  system  on 
one  well 

Y  =  the  tangible  portion  01'  the  cost 

Z     =  the  total  of  fracturing,  acid  treating,  installing 
pumps,  or  installing  a  secondary  recovery  system  on 
a  lease 


It  should  be  clear  that  part  of  the  costs  of  the  installation  of 
pumps  and  a  secondary  system  such  as  the  cost  of  the  necessary  equipment, 
should  be  capitalized  as  tangible  costs,  and  that  the  rest  of  the  costs 
such  as  the  labor  to  install  the  equipment,  should  be  expensed  as  intangible 
costs.  It  is  not  so  clear  how  the  costs  of  a  successful  fracture  or  acid 
treatment  should  be  handled.  It  was  felt  that  since  the  well  was  of  more 
value  after  the  treatment,  part  of  the  costs  of  the  treatment  should  be 
capitalized.  The  remaining  costs  should  be  expensed  such  as  the  costs 
of  temporary  equipment  necessary  to  do  the  job.  An  arbitrary  fraction 
of  six-tenths  was  selected  to  represent  that  portion  of  the  costs  that 
are  tangible  costs.  This  portion  of  the  costs  must  also  be  added  to  the 
cost  of  the  lease  equipment  in  order  that  the  proper  depreciation  rate 
may  be  computed. 
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Equipment  Renewal  Costs 

The  costs  of  renewing  equipment  on  a  lease  are  considered  entirely 
as  tangible  costs. 


TANG(II)  =  TANG(II)  +  RENEtf(I,K,2) 

CASH(I)  =  CASH(I)  -  RENEtf(I,K,2)  *  CASHFT 

ACCPAY(I)  =  ACCPAY(I)  +  RENEW(I,K,2)  *  (l.  -  CASHFT) 

Where:  RENEW(I,X,2)  =  the  amount  paid  for  the  renewal  of  equipment  on 

the  lease 


Any  amount  of  capital  spent  on  the  renewal  of  lease  equipment 
will  be  capitalized  as  a  tangible  asset  as  indicated  by  the  first  Fortran 
statement  above.  The  company's  cash  and  accounts  payable  are  adjusted 
accordingly. 

Depreciation  and  Depletion  Accounting 

The  calculation  of  depreciation  and  depletion  was  discussed  in 
the  previous  section  of  this  chapter  on  lease  accounting.  The  tangible 
assets  of  the  lease  are  reduced  by  the  amount  of  the  depreciation,  and 
the  intangible  assets  of  the  lease  are  reduced  by  the  amount  of  the  deple- 
tion. 

TANG(II)  =  TANG(II)   -  DEPREC(II) 
IN?ANG(II)VlNTANG(II)  .  DEPLET(II) 

The  Financial  Status  Sheet 

As  previously  mentioned,  the  Financial  Status  Sheet  is  actually 
a  scoreboard  that  displays  each  company's  financial  status.  It  also 
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shows  some  of  the  aspects  of  the  industry  in  which  the  company  is 
competing.  The  Financial  Status  Sheet  is  divided  into  four  parts: 
the  income  statement,  the  balance  sheet,  the  decisions  and  environment, 
and  the  remarks  section. 

The  income  statement  is  the  first  section  of  the  Financial  Status 
sheet  to  be  discussed.  The  purpose  01  the  income  statement  is  to  show  the 
flow  of  the  company's  funds  during  the  simulated  time  period.  The  result 
of  the  income  statement  shows  the  net  profit  and  the  change  in  the 
stockholder's  equity  for  each  simulated  period. 

The  first  item  on  the  income  statement  is  the  revenue  for  the 
sale  of  oil  and  natural  gas. 


621  TOTREV  =  TOTREV  +  REVNUE(II) 

Where:  TOTREV  =  the  total  amount  of  revenue  realized  from  the  sale 
of  oil  and  natural  gas  by  a  company 


The  total  revenue  from  the  sale  of  oil  and  natural  gas  realized  by 
a  company  is  computed  by  adding  the  revenue  from  all  of  its  producing  leases, 
The  next  item  to  be  discussed  are  the  operating  expenses. 


657  DELAYS  =  DELAYR  +  ACRES  ,/l2 


TOTRYL  =  TOTRYL  +  ROYLTY(II) 
TOTOPC  =  TOTCPC  +  0?CC3T(II) 
TOTDPR  =  TOTDPR  +  DEPRSC(II) 
TOTDPL  =  TOTDPL  +  DEPLET(II) 

Where:  CSLAYR  =  the  total  amount  of  delay  rentals  paid  by  a  company 
TOTRYL  =  the  total  amount  of  royalties  paid  by  a  company 
TOTOPC  =  the  total  operating  cost  of  a  company 
TOTDPR  =  the  total  depreciation  deduction  allowed  a  company 
TOTDPL  =  the  total  depletion  deduction  allowed  a  company 
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The  total  amount  for  each  expense  is  found  by  summing  the  expenses 
of  all  the  leases  that  a  company  owns.  The  abandonment  costs  are  not  shown 
at  this  time  because  the  method  used  was  given  previously  in  the  section 
on  abandonment  costs.  Drilling  costs  are  not  shown  also,  for  it  was 
demonstrated  previously  in  the  discussion  of  lease  development  costs. 

Net  operating  income  is  now  computed  by  summing  up  all  of  the 
operating  expenses  and  subtracting  that  amount  from  the  total  revenue. 


TOTOPE  =  TOTRYL  +  DELAYR  +  DRILL  +  TCTOPC  +  TOTDPR  +  TCTDPL 
1  +  ABDCOS(I) 
OPNET  =  TOTREV  -  TOTOPE 

Where:  TOTOPE  =  the  total  operating  expenses  for  the  company 

DRILL  =  the  total  amount  of  the  intangible  drilling  costs  for 

the  company 
OPNET  =  the  net  operating  income  of  a  company 


A  company  may  have  other  income  than  the  revenue  from  the  sale  of 
gas  and  oil.  This  income  may  be  either  capital  gains  or  dividends  received 
from  its  investments. 

706  DIVREC  =  DVRATE  *  INVEST(I)  *  TIMFAC 

CPGAIN  =  GAINLT(I)  +  OTHDJC(I) 

Where:  INVEST(I)  =  the  amount  a  company  has  invested  in  outside  investments 
DVRATE    =  the  amount  of  the  dividend  rate  per  year 
DIVREC    =  the  amount  of  dividends  received  for  the  simulated 

time  period 
CPGAIN    =  the  total  amount  of  capital  gains  of  a  company 

The  dividends  received  by  a  company  are  the  return  from  its 
investments  in  other  companies  outside  the  industry.  This  dividend  is 
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computed  by  multiplying  the  annual  dividend  rate,  DVRA.TE,  times  the  amount 
of  the  investment  of  the  company  times  the  fraction  of  a  year  that  the 
simulated  time  period  represents.  The  dividend  rate  is  a  parameter  set 
by  the  model  administrator  at  the  beginning  of  the  simulation. 

Capital  gains  are  the  sum  of  the  long  term  capital  gains  and  the 
regular  income  realized  on  the  sale  of  a  capital  asset. 

The  next  item  on  the  income  statement  to  be  discussed  is  termed 
as  other  expenses.  Cther  expenses  may  be  defined  as  those  company 
expenses  that  are  not  directly  related  to  the  operation  of  a  lease. 

INTPAY  =  (STLOAN(I)  *  STRATE  +  BONDS (I)  *  BORATE)  *  TIMFAC 

CPL0S5  =  XLOSLT(I)  *  CTHLOS(I) 

Where:  INTPAY  =  the  total  interest  on  the  debts  of  the  company 
STRATE  =  the  short  term  loan  interest  rate 
BNRATE  =  the  bond  interest  rate 
CPLOSS  =  the  total  capital  losses  for  the  company 

Interest  paid  is  the  interest  on  all  outstanding  loans  and  bonds, 
and  is  computed  by  multiplying  the  appropriate  rate,  STRATE  for  short  term 
and  BDRATE  for  bonds,  times  the  amount  of  each  that  is  outstanding. 

Capital  losses  are  similar  to  capital  gains  in  that  they  are  the 
sum  of  the  long  term  capital  losses  plus  the  regular  losses  realized  on 
the  sale  of  a  capital  asset. 

Administrative  expenses  were  computed  as  a  percent  of  the  total 
assets. 


ADMIN  =  .ASSETS (I)  *  .02 

IF  (ORCARY(I).LE.O.O)  GO  TO  707 

X  =  ADMIN  *  0RCARY(I)/0RBASE  *  0.1 
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IF  (X.GT.ADMIN*0.5)  X  =  ADMIN  *  0.5 
ADMIN  =  ADMIN  -X  " 


ORCARY(I)  =  CRCARY(I)  +  OPRES(I) 
Where:  ASSETS (I)  =  the  total  assets  of  a  company  at  the  beginning  of 

the  simulated  period 
ORCARY(I)  =  the  total  amount  a  company  has  invested  in  operations 

research 
OPRES(I)  =  the  amount  of  funds  invested  in  operations  research 

for  this  simulated  period 
ORBASS    =  a  parameter  used  as  a  base  for  investment  in 

ooerations  research 


Administrative  expenses  were  computed  as  described  in  the  following 
discussion,  for  it  was  felt  that  these  expenses  would  probably  be  more 
of  a  function  of  total  assets  then  of  any  other  one  item.  As  the  model 
is  constructed,  administrative  expenses  may  be  decreased  by  investing  in 
operations  research.  The  total  amount  of  funds  invested  in  operations 
research  is  compared  with  the  parameter  0RBA5E  which  is  set  by  the  model 
administrator  at  the  beginning  of  the  simulation  and  should  not  be  divulged 
to  the  companies  during  the  simulation.  Investments  by  a  company  in  opera- 
tions research  will  not  effect  administrative  expenses  for  the  simulated 
period  in  which  the  investment  was  made,  but  the  investment  will  affect 
the  following  period. 

The  exploration  and  development  expenses  are  expenses  connected 
with  the  exploration  and  development  of  the  leases  and  are  generally  those 
expenses  that  are  connected  with  leases  which  are  not  capitalized. 

The  total  of  these  expenses  is  found  by  simple  addition. 


OTEEXP  =  INTPAI  +  ADMIN  +  SANDD(I)  +  OPRES(I)  +  CPLOSS 

H0LD1  =  0.85  *  DIVRSC 

PRETAX  =  OPNST  +  TOTING  -  OTHEXP  -  GAINLT(I) 
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Where:  OTHEXP  =  the  total  amount  of  a  company's  other  expenses 
H0LD1  =  the  total  amount  of  tax  deductable  dividends 
PRETAX  =  the  amount  of  taxible  income 


Before  federal  and  state  taxes  can  be  computed,  the  net  taxable 
income  must  be  determined.  The  net  long  term  gain  has  already  been 
calculated.  The  amount  of  deductable  dividends  is  computed  by  multiplying 
the  total  amount  of  dividends  received  by  eighty-five  per  cent.  This  is 
in  keeping  with  the  tax  laws  that  state,  in  effect,  that  corporations  may 

deduct  eighty-five  per  cent  of  dividends  received  from  other  taxable 
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domestic  corporations.    The  net  taxable  income  is  calculated  by  adding 

the  net  operating  income  to  the  total  other  income  and  then  subtracting 
the  total  other  expenses,  the  deductible  dividends,  and  the  net  long  term 
gain. 

The  model  assesses  the  companies  two  classes  of  taxes:   (l)  federal 
income  tax,  and  (2)  state  severance  tax.  The  federal  income  tax  is  broken 

into  two  parts  which  are  the  normal  federal  corporation  tax  on  income,  and 

r 
the  tax  on  long  term  gains. 


TOTGRO  =  TOTGRO  +  GROSS (II) 


ST AT AX  =  STAXR  *  TOTGRO 

FEDTAX  =  FTAXR  *  (PRETAX  -  STATAX) 

IF  (PRETAX-STATAX.LT  0.0)  FEDTAX  0.0 


TAXLTG  =  .25  *  GAINLT(I) 

Where:  GROSS (II)  =  the  gross  income  of  a  lease 

TOTGRO    =  the  total  gross  income  of  all  producing  leases  of 

a  company 
STAXR    =  the  state  severance  tax  rate 
STATAX    =  the  amount  of  state  tax  paid  by  a  company 
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FTAXR     =  the  federal  income  tax  rate 

FEDTAX    =  the  amount  of  federal  income  tax  paid  by  a  company 

TAXLTG    =  the  federal  tax  on  long  term  capital  gains 


The  gross  incomes,  which  are  the  gross  revenues  minus  the  royalties 
paid,  of  all  leases  owned  by  a  company  are  added  together  to  oroduce  the 
total  gross  income  from  the  production  of  oil  and  gas  which  is  stored  in 
the  variable,  TOTGRO.  The  total  state  severance  tax  paid  by  a  company  is 
computed  by  multiplying  the  total  gross  income  times  a  state  tax  rate, 
STRATE,  that  is  a  parameter  set  by  the  model  administrator.  The  state 
tax  is  deducted  from  the  net  taxable  income  before  the  normal  federal 
income  tax  is  computed.  If  the  net  taxable  income  is  less  than  the  state 
tax,  the  federal  tax  will  be  equal  to  zero.  The  federal  tax  is  calculated 
by  multiplying  the.  federal  tax  rate,  FTAXR,  times  the  result  of  the  net 
taxable  income  minus  the  state  severance  tax. 

The  last  tax  that  is  charged  is  the  tax  on  the  long  term  gains. 
Corporations  may  not  take  a  deduction  of  part  of  their  long  term  capital 
gain  as  individuals  do,  however,  they  may  allow  themselves  to  be  taxed 

at  the  rate  of  twenty-five  per  cent  times  their  net  long  term  capital 

2k 
gains.    The  net  long  term  capital  gain  in  this  case  is  the  long  term 

capital  gains  less  the  long  term  capital  losses  and  less  the  short  term 

capital  losses. 

The  companies  pay  all  taxes,  as  they  occur;  from  cash. 

CASH(I)  =  CASH(I)  -  STAT AX  -  FEDTAX  -  TAXLTG 
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After  the  taxes  are  settled,  the  net  income  for  the  period  and 
the  change  in  stockholder's  equity  is  computed. 

NETINC(I)  =  PRETAX  -  STATAX  -  FEDTAX  -  TAXLTG  +  GAINLT(I)  +  KCLD1 

731  EQUITY  =  NETINC(I)  -  PENLTY  -  DIVPAY  +  SELL  -  3IST0K 

Where:  NETTNC(I)  =  the  net  income  of  a  company 

EQUITY  =  the  change  in  the  stockholder's  equity  for  the  period 

SELL  =  the  amount  of  money  realized  from  selling  stock 

BISTOK  =  the  cost  of  buying  stock 

PENTLY  =  the  penalty  paid  for  attempting  to  beat  the  model 

Net  income  for  a  company  is  determined  by  subtracting  the  taxes 
paid  from  the  net  income  before  taxes.  The  change  in  stockholder's  equity 
is  calculated  by  subtracting  the  penalties  paid,  the  dividends  paid,  and 
the  stock  purchased  from  the  sum  of  the  net  income  and  the  stock  sold. 

The  balance  sheet  mainly  reflects  the  distribution  of  the  assets 
and  liabilities  of  a  company.  Most  of  the  calculations  have  already 
been  given,  such  as  many  of  those  for  cash  and  accounts  receivable.  The 
capitalized  tangible  and  intangible  assets  are  added  for  all  of  the  leases 
of  a  company. 


TOTTAN  =  TOTTAN  +  TANG(II) 
TOTINT  =  TOTINT  +  INTANG(II) 

Where:  TOTTAN  =  the  total  tangible  assets  of  a  company 

TOTINT  =  the  total  intangible  assets  of  a  company 


After  all  transactions  have  been  completed  for  the  period,  the 
total  assets  are  computed  by  summing  all  of  the  individual  asset  accounts 
of  a  company. 


81 


ASSETS(I)  =  CASH(I)  +  ACCREC(I)  +  T0TTA2J  +  TOTINT  +  INVEST(I) 
Where:  ASSETS (I)  =  the  total  assets  of  a  company 

Most  of  the  liabilities  have  been  explained  in  the  previous 
discussion  of  this  section.  Retained  earnings  and  the  total  liabilities 
are  calculated  in  the  follovring  manner. 


H0LD2  =  RTEARN(I) 

RTEARN(I)  =  RTEARN(I)  +  NETINC(I)  -  PENLTY  -  DIVPAY  +  ADD 
?40  TOTLIB  =  ACCPAY(I)  +  STLOAN(I)  +  BONDS(I)  +  PAYCAP(I)  +  RTEARN(I) 

Where:  RTEARN(I)  =  the  retained  earnings  of  a  company 
TOTLIB    =  the  total  liabilities  of  a  company 
H0LD2     =  a  temporary  variable  representing  the  retained 
earnings  of  a  company  from  the  previous  oeriod 
ADD      =  the  depletion  taken  on  a  lease  that  cannot  be  matched 
to  a  capitalized  intangible  asset  of  the  lease 


The  retained  earnings  amount  is  found  by  adding  the  previous 
retained  earnings,  the  net  income  for  the  period,  and  the  depletion  that 
cannot  be  matched  against  the  capitalized  intangible  assets  of  a  lease, 
and  subtracting  from  this  sum  the  penalties  and  dividends  paid  during  the 
simulated  time  period.  The  total  liabilities  is  the  sum  of  all  the 
liability  accounts  of  a  company. 

The  market  quote  and  the  book  value  of  the  stockholder's  equity 
are  computed  by  the  following  method. 


MQUOTE(I)  =  iMQUOTE(I)  +  (RTEARN(I)  -  H0LD2./RTEARN(I)  *  KQUOTE(I) 
IF  (KQUOTE(I).LT.l.O)  MQUOTE(I).LT.l.O)  MQUOTE(I)  =  1.0 
MQU0?E(I)  =  MQUOTE(I)  -  MQUOTE(I)  *  (DIVBAS  -  DIVDND(I))/DIVBAS 

1  *  QUOTFT 
IF  (MQUOTE(I).LT.l.O)  MQUOTE(I)  =  1.0 


742  BOCK  =  (PAYCAP(I)  +  RTEARN(D) /SHARES (I) 
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Where:  MQUOTE(I)  =  the  price  a  company's  share  of  stock  will  sell 

for  on  the  open  market 
DIVDND(I)  =  the  dividend  per  share  that  is  paid  by  a  company 

DIVBA3    =  a  base  dividend  that  should  be  paid  by  a  company 
BOOK      =  the  book  value  of  the  stockholder's  equity 


The  selling  price  of  a  company's  stock  on  the  open  market  or  the 
market  quote  is  thought  to  be  the  attractiveness  of  the  company  as  an 
investment.  People  will  normally  like  investments  that  give  them  a 
return  on  their  money  plus  some  growth  indication  in  the  company.  The 
attempt  to  simulate  these  two  factors  has  been  made  in  computing  the 
market  quote.  The  first  new  market  quote  is  determined  by  the  per  cent 
change  in  the  book  value  of  the  stockholder's  equity  that  is  the 
result  of  company  operations.  The  final  market  quote  is  computed  by 
comparing  the  dividend  being  paid  by  the  company  to  an  average  base 
dividend  that  would  be  paid  by  a  normal  operating  company.  This  base 
dividend  is  a  parameter  set  by  the  model  administrator  at  the  beginning 
of  the  simulation. 

The  book  value  of  the  stockholder's  equity  is  calculated  by 
dividing  the  sum  of  the  paid  in  capital  and  the  retained  earnings  by 
the  number  of  the  shares  of  the  company's  stock  that  are  outstanding. 

One  of  the  final  calculations  to  be  made  by  the  model  is  to 
determine  if  a  company  may  need  an  emergency  loan. 


IF  (CASH(I).LE.O.O.)  GO  TO  703 
EMERG  =  ABS(CASH(I))  *  1.1 
CASH(I)  =0.0 
703  STLOAN(I)  =  STLOAN(I)  +  EMERG 

Where:  EMERG  =  the  amount  of  the  emergency  loan  that  a  company  is  forced 
to  take 
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The  emergency  loan  procedure  is  set  up  to  keep  a  company's  cash 
account  from  having  a  negative  balance.  If  it  does  go  negative  during 
the  company's  transactions  and  remains  negative  after  all  transactions 
are  completed,  the  company  is  forced  to  take  an  emergency  loan  to  make 
the  balance  of  the  account  equal  to  zero.  When  the  emergency  loan  is 
taken,  it  is  automatically  discounted  at  the  rate  of  ten  per  cent  and 
then  added  to  the  short  term  loan  total. 

The  decisions  and  environment  section  of  the  Financial  Status 
Sheet  displays  some  of  the  decisions  made  by  the  company  some  of  the 
effects  of  those  decisions,  and  some  other  information  that  the  company 
may  desire  to  know. 

The  remarks  section  is  utilized  to  print  penalty  statements 
which  are  to  inform  the  company  that  it  has  attempted  to  violate  the 
rules  of  the  simulation,  and  provides  a  space  for  the  growth  of  the 
Financial  Status  Sheet  if  future  development  of  the  model  so  warrants. 


CHAPTER  V 
INSTRUCTIONS  TO  CONDUCT  THE  SIMULATION 

Introduction 

The  purpose  of  the  oil  industry  model,  as  stated  in  the  title 
of  this  thesis,  is  to  provide  instructors  with  an  engineering-management 
training  aid.  In  order  for  it  to  accomplish  its  purpose,  instructions 
must  be  written  to  guide  both  the  student  and  the  instructor,  the 
model  administrator,  in  the  procedures  recommended  to  conduct  the 
simulation.  This  is  the  purpose  of  this  chapter. 

The  first  part  of  the  chapter  is  entitled  The  Student's  Pamphlet 
and  contains  a  brief  description  of  the  model,  the  recommended  procedures 
to  follow  during  the  simulation,  a  list  of  decisions  to  be  made,  a  descrip- 
tion of  the  format  of  the  decision  cards  and  their  arrangement,  and  a 
decision  work  sheet.  Each  student  should  be  provided  with  a  pamphlet 
far  enough  in  advance  of  the  start  of  the  simulation  that  he  may  have 
the  opportunity  to  familiarize  himself  with  its  contents. 

The  second  part  of  the  chapter  is  entitled  The  Model  Administrator's 
Pamphlet  and  includes  instructions  for  assigning  parameters,  suggestions 
for  tailoring  the  model,  descriptions  of  the  arrangement  and  format  of 
the  parameters,  suggested  values  for  the  parameters,  the  arrangement 
of  the  final  deck,  and  the  recommended  procedures  to  conduct  the  simulation. 
Each  model  administrator  should  have  one  of  these  pamphlets  to  refer  to 
during  the  simulation,  however,  this  thesis  should  be  his  primary  source 
for  information  concerning  the  model  if  a  problem  develops  and  the  solution 
is  not  apparent. 
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The  Student's  Pamohlet 

Model  Description 

The  computor  model,  Paydirt,  is  programed  in  Fortran  IV 
programming  language.  It  is  a  simulation  of  an  industry  of  independent 
oil  companies  that  buy  and  sell  oil  property  leases;  revert,  develop,  or 
abandon  the  leases  they  have  bought;  buy  and  sell  stock  of  their  own 
company;  and  invest  in  companies  outside  the  industry.  As  presently 
programed,  the  number  of  companies  in  the  industry  is  limited  to  five. 

Whenever  oil  property  leases  are  bought  and  sold,  a  bonus  is 
normally  paid  to  the  leasing  party  to  obtain  the  lease.  The  leasing  party 
will  usually  lease  to  the  company  offering  the  highest  bonus.  V.Tien  bids 
for  leases  are  made,  the  bids  are  not  to  purchase  the  oil  property,  but 
the  bids  are  made  for  the  right  to  lease  the  property.  Bids  may  be  for 
any  amount  above  the  minimum  bid  which  is  disclosed  on  the  lease  description. 
The  program  will  pick  out  the  highest  bid  and  award  the  lease  to  the 
company  that  made  that  bid.  Should  two  companies  make  the  same  bid,  and 
that  bid  is  the  high  bid,  the  winner  of  the  bid  will  be  picked  by  random 
selection.  A  bid  will  not  be  recognized  by  the  program  if  the  lease  is 
not  on  the  list  of  available  leases  for  sale  by  the  model  administrator,  or 
if  the  lease  is  not  offered  for  sale  by  another  company. 

Companies  may  sell  leases  to  other  companies  at  any  time  as  long 
as  the  company  owns  the  lease  it  is  attempting  to  sell.  The  sale  between 
two  companies  may  be  a  private  deal,  or  a  company  desiring  to  sell  a  lease 
may  make  that  fact  and  the  acceptable  minimum  bid  known  to  the  other  companies. 
When  a  company  desires  to  sell,  the  number  of  the  lease  being  sold  is  punched 
into  the  first  lease  bid  card  with  a  minus  sign  before  the  number  in  the 
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proper  format.  The  minimum  bid  desired  is  punched  in  the  corresponding 
field  on  the  second  bid  card  in  the  proper  format.  Companies  will  be 
penalized  for  attempting  to  sell  leases  that  they  do  not  own. 

If  a  company  buys  a  lease  and  drills  a  dry  hole  on  it,  it  is 
recommended  that  the  company  revert  the  lease  as  soon  as  possible.  If 
it  is  not  reverted,  the  program  may  charge  a  company  a  delay  rental 
charge  for  the  time  the  lease  is  held.  Only  leases  without  producing 
wells  may  be  reverted. 

Abandonment  of  a  lease  should  occur  only  when  the  lease  has  been 
depleted  to  the  point  where  it  is  no  longer  economical  to  produce  oil  or 
gas  from  it.  Companies  may  abandon  a  lease  at  any  time,  however,  when  a 
lease  is  abandoned,  it  removes  the  lease  completely  from  circulation  and 
the  abandoning  company  is  charged  a  fee  per  well  for  abandoning.  The  fee 
simulates  the  closing  in  of  the  wells,  removing  equipment  from  the  lease, 
and  restoring  the  surface  of  the  lease  to  some  reasonable  condition. 
Companies  are  warned  not  to  attempt  to  abandon  a  lease  they  do  not  own. 

The  first  step  in  developing  an  unproven  lease  that  a  company  has 
acquired  is  to  drill  an  exploratory  well.  The  exploratory  well  will  be 
the  first  well  to  be  drilled  on  any  unproven  lease.  Once  the  exploratory 
well  shows  that  oil  has  been  found,  or  the  lease  acquired  already  has 
producing  wells  on  it,  development  wells  may  be  drilled  at  the  rate  of 
four  wells  per  month  until  a  well  is  a  dry  hole.  All  wells  drilled  on  a 
lease,  after  a  dry  hole  has  been  drilled  on  the  lease,  will  also  be  dry. 
If  during  a  simulated  time  period  a  well  on  a  lease  is  a  dry  hole,  the 
program  will  drill  no  more  wells.  Also,  a  dry  hole  drilled  on  a  producing 
lease  is  an  indication  that  the  limit  of  producing  wells  has  been  reached. 


8? 


When  a  producing  well  has  been  drilled,  the  well  is  assigned  a 
well  factor  which  determines  the  rate  of  production  of  the  well.  A 
maximum  rate  of  oil  production  is  calculated  and  multiplied  times  the 
well  factor  of  each  well  on  the  lease  to  determine  each  well's  production 
for  the  month.  This  production  is  summed  to  find  the  total  production  of 
the  lease  for  the  month.  The  production  of  oil  may  be  limited  by  an  oil 
allowable.  A  producing  gas-oil  ratio  is  also  calculated  and  multiplied 
times  the  oil  produced  to  calculate  the  gas  production  from  the  lease. 
A  gas  allowable  may  also  limit  the  production  of  oil  from  the  lease. 
Companies  have  no  control  over  the  production  of  oil  and  gas  from  the 
leases  they  own. 

Should  a  lease  not  produce  at  the  desired  rate,  the  owning  company 
may  do  any  of  the  following  procedures  to  imporve  well  performance:   (l) 
they  may  fracture  the  wells  on  the  lease,  (2)  they  may  acid  treat  the 
wells  on  the  lease,  (3)  they  may  install  pumps  on  the  lease,  or  (4)  they 
may  install  a  secondary  recovery  system  on  the  lease.  Wells  may  be 
fractured  and/or  acid  treated  at  any  time  but  only  the  original  attempt 
of  each  treatment  may  be  successful  during  the  life  of  the  well.  These 
treatments  will  not  be  successful  once  pumps  have  been  installed  on  the 
wells.  Pumps  must  be  installed  on  a  lease  before  secondary  recovery  can 
be  installed,  and  neither  can  be  installed  until  the  maximum  production  per 
well  is  less  than  the  oil  allowable.  If  a  company  attempts  to  install  pumps 
or  secondary  recovery  prematurely,  the  program  will  ignore  these  attempts. 

As  oil  and  gas  are  produced  on  a  lease  the  equipment  necessary  for 
production  grows  old  and  wears  out,  and  the  operating  and  maintenance 
costs  increase.  These  costs  are  the  variable  costs  of  operating  the 
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lease,  and  the  companies  may  reduce  these  costs  by  investing  in  new 
equipment . 

There  are  many  other  costs  involved  in  the  program.  Charges  are 
made  for  drilling  wells,  fracturing  and  acid  treating  wells,  and  instal- 
ling pumps  and  secondary  recovery  systems.  Administrative  costs  are 
determined  by  multiplying  a  per  cent  times  the  total  assets  of  a  company. 
These  administrative  costs  may  be  reduced  by  investing  in  operations 
research.  Royalties  are  also  paid  by  the  companies  to  the  land  or 
royalty  owners.  Delay  rental  charges  are  made  against  a  company  if  they 
do  not  drill  on  the  lease  within  one  year  after  purchase  of  the  lease. 
As  another  cost,  interest  is  paid  on  all  outstanding  loans  and  bonds 
that  a  company  is  liable  for.  All  costs  that  can  be  capitalized,  are 
capitalized  as  tangible  or  intangible  assets.  The  tangible  assets  are 
reduced  by  depreciation,  and  the  intangible  assets  are  reduced  by  depletion, 

Depreciation  and  depletion  is  computed  for  each  lease  and  added 
to  determine  the  total  amount  allowed  to  a  company.  Companies  may  choose 
the  method  of  computing  depreciation:  method  number  one  is  the  straight 
line  method,  method  number  two  is  the  double  declining  balance  method,  and 
method  number  three  is  the  sura-of-the-years  digits  method.  When  switching 
depreciation  methods *  the  rule  of  present  tax  laws  must  be  followed. 
Companies  have  no  choice  in  the  method  used  in  computing  depletion.  The 
amount  of  depletion  deduction  will  be  the  maximum  amount  allowed. 

At  the  beginning  of  the  simulation,  all  companies  will  be  given 
the  same  amount  of  assets  and  liabilities.  They  will  be  identically, 
distributed,  i.e.  each  company  will  have  the  same  amount  of  cash,  the 
same  amount  of  accounts  receivable,  the  same  amount  of  accounts  payable, 
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the  same  amount  of  paid  in  capital,  etc.  Should  a  company  need  more 
capital  to  cover  its  costs,  it  may  acquire  extra  capital  by  borrowing 
a  short  term  loan,  by  selling  bonds,  and  by  selling  company  stock.  If 
a  company  decides  that  it  has  too  much  cash  on  hand,  it  may  invest  the 
cash  in  other  domestic  companies  outside  the  industry  and  receive  dividends 
from  the  investment,  or  the  company  may  invest  in  its  own  stock,  thereby 
saving  on  the  dividends  that  must  be  paid  to  its  stockholders. 

If  a  company  runs  out  of  cash  during  their  transactions,  the 
company  is  required  to  take  an  emergency  loan  to  complete  their  transac- 
tions. The  emergency  loan  is  automatically  discounted  at  the  rate  of 
ten  per  cent  and  is  then  added  to  the  short  term  loan  total. 

A  market  quote  is  computed  for  each  company  to  indicate  how  well 
the  company  is  doing  and  to  establish  a  price  for  the  buying  and  selling 
of  the  stock  of  the  company.  This  quote  is  based  upon  the  trend  of  the 
change  in  the  book  value  of  the  stockholder's  equity  due  to  operations 
and  upon  the  amount  of  the  dividends  paid  by  a  company. 

The  model  provides  each  company  with  three  reports:   (1)  a  lease 
development  report,  (2)  a  lease  production  and  cost  report,  and  a  company 
financial  status  sheet.  These  reports  are  to  provide  a  picture  of  how  the 
company  fared  as  a  result  of  the  decisions  it  had  previously  made. 

Recommended  Procedures 

The  following  procedure  in  making  company  decisions  is  recommended: 
1.  Companies  should  read  through  the  lease  descriptions  and 
analyze  them  to  determine  what  the  chance  might  be  of  finding  oil  under 
each  unproven  lease  and  to  estimate  if  the  asking  price  is  worth  the  chance, 
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For  producing  leases,  the  companies  should  attempt  to  determine  if  the 
lease  will  provide  a  favorable  return  on  the  money  required  to  be  invested, 

2.  Once  the  decision  has  been  made  as  to  which  leases  are  to  be 
bid  upon  and  how  much  is  to  be  bid,  companies  should  elect  a  method  of 
depreciation  for  tangible  assets  even  though  they  do  not  know  who  will 
be  the  owner  of  the  lease. 

3.  It  is  advisable  for  companies  to  request  to  drill  on  the 
leases  that  they  have  bid  upon.  This  is  assuming  that  the  company  has 
the  funds  to  cover  the  costs  of  these  requests. 

k.     Companies  should  estimate  the  capital  necessary  to  accomplish 
the  transactions  they  are  requesting,  and  request  extra  capital  if  their 
estimates  show  that  they  do  not  have  enough.  Likewise,  if  companies 
believe  that  they  have  too  much  capital  on  hand,  they  should  invest  the 
extra  capital. 

5.  Companies  should  determine  how  much  fringe  benefits  they  would 
like  to  pay  their  employees  in  order  to  avoid  a  strike.  Also,  if  there 

is  no  labor  contract  in  force,  companies  should  decide  the  wage  rate  they 
would  like  to  pay  their  employees. 

6.  The  stockholders  would  like  their  share  of  the  profits,  so  the 
companies  should  decide  how  large  a  dividend  they  can  afford  to  pay. 

The  amount  decided  upon  should  be  for  a  quarter  of  a  year. 

7.  If  administrative  expenses  are  too  high,  companies  should 
decide  how  much  money  to  invest  in  operations  research. 

8.  Companies  should  analyze  the  production  from  their  producing 
leases  and  attempt  to  determine  if  it  is  desirable  to  fracture  or  acid 

treat  the  wells  of  a  lease,  install  pumps  or  secondary  recovery  on  the 
lease,  or  abandon  the  lease. 
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9.  A  check  should  be  made  to  determine  the  trend  of  the  operating 
costs  of  each  lease.  If  they  appear  to  be  getting  too  high,  a  decision 
should  be  made  as  to  how  much  money  should  be  invested  in  new  equipment 
for  the  lease  if  any. 

Preparation  of  the  Decision  Deck 

The  first  decision  card  of  the  decision  deck  contains  the  request 
for  the  amount  of  dividends  to  be  paid  to  the  stockholders,  the  request  for 
a  short  term  loan,  the  request  for  a  long  term  loan  in  the  form  of  a  bond 
sale,  the  request  to  invest  in  outside  domestic  companies,  the  request 
to  buy  or  sell  it's  own  stock,  the  request  for  a  wage  rate  per  hour  to 
be  paid  to  the  company  employees,  the  request  to  invest  in  operations 
research,  and  the  request  for  the  fringe  benefit  rate  per  hour  to  be 
paid  to  the  company  employees. 

The  second  decision  card  to  be  prepared  is  the  card  containing  the 
lease  numbers  of  the  leases  the  company  is  bidding  for.  The  format  for 
this  and  all  of  the  other  decision  cards  is  indicated  on  the  diagram  of 
the  arrangement  of  the  decision  deck  on  the  following  page.  The  next 
card  should  contain  the  amount  bid  for  each  lease  punched  in  the  field 
corresponding  to  the  field  in  the  second  card  where  the  lease  number  is 
located. 

The  decisions  to  revert  or  abandon  leases  are  punched  in  the  fourth 
decision  card.  The  first  four  fields  should  contain  the  lease  numbers 
of  the  leases  to  be  reverted  and  the  last  four  fields  should  contain  the 
lease  numbers  of  the  leases  that  are  to  be  abandoned. 

The  next  two  cards  of  the  decision  deck  are  for  equipment  renewal. 
The  first  card  contains  the  lease  numbers  of  the  leases  on  which  it  is 
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Company  Decision  Deck 


1st  lease  2nd  lease 
number     number 


3rd  lease  hth  lease  1st  lease  2nd  lease  3rd  lease  hth  lease  \ 

number    number    number  number    number  number 

PUMP  INSTALLATION  REQUESTS  SECONDARY  RECOVERY  INSTALLATION  REQUESTS 

FORI.  AT  (BF10.0) 


1st  lease 
number 


2nd  lease  3rd  lease 
numb e  r     n umb e  r 
FRACTURE  REQUESTS 


hth  lease 

number 


1st  lease  2nd  lease |3ri  lease  |  Lth  lease 
number     number    number     number 
ACID  TREATMENT  REQUESTS 


A 


FORMAT  (3F10.0) 


number  of  number  of 
rails      wells 


number  of  number  of  number  of 
wells     wells     wells 

NUM3ER  OF  WELLS  TO  3E  DRILLED 
FORMAT  (3F10.C) 


number  of  number  of 
wells     wells 


number  of 
wells 


A 


1st  lease 
number 


2nd  lease  3rd  lease  hth  lease  5th  lease  6th  lease  |7th  lease  j  3th  lease 

number     number    number    number  number    number     number 

LEASE  NUMBERS  OF  LEASES  ON  WHICH  WELLS  ARE  TO  BC  DRILLED 

FORMAT  (3F10.0) 


A 


method 
number 


method     method    method    method     method 
number     number    number    number     number 
METHOD  BY  WHICH  DEPRECIATION  IS  TO  BE  COMPUTED 

FORM"  (1013) 


method 
number 


method 
number 


1st  lease  2nd  lease  3rd  lease  hth  lease  |5th  lease  6th  lease  7th  lease  |  3th  lease 

number    number    number    number    number     number    number     number 

LEASE  NUMBER  ON  WHICH  DEPRECIATION  METHOD  IS  TO  3E  CHANGED  OR  INITIALIZED 

FORMAT  (1018) 


amount 
invested 


amount  amount         amount         amount  amount 

invested       invested     invested     invested       invested 
AMOUNT  INVESTED  IN  EQUIPMENT  RENEWAL 
FORMAT  (8F10.2) 


amount 
inves  ted 


amount 
invested 


^s 


"> 


Lst  lease 
number 


7th  lease  3th  lease 
numb  e  r     numb  e  r 


2nd  lease  3rd  lease  hth  lease  pth  lease  6th  lease 
number    number    number    number     number 
LEASE  NUMBERS  OF  LEASES  ON  WHICH  EQUIPMENT  IS  TO  BE  RENEWED 

FORMAT  (3F10.2) 


t  lease 
number 


2nd  lease 
number 


3rd  lease 
number 


hth  lease 
number 


lst  lease 
number 


2nd  lease 
number 


3rd  lease  hth  lease 
numb  e  r     numb  e  r 


^N 


REVERSION  REQUESTS 


FORMAT  (3F10.2) 


ABANDONMENT  REQUESTS 


amount 

amount 

amount 

amount 

amount 

bid 

bid      ' 

bid               bid               bid 
AMOUNTS  BID  FOR  LEASES 

FORMAT 

(3F10.2) 

amount 
bid 


amount 
bid 


amount 
bid 


Ast  lease 
/      number 


2nd  lease     3rd  lease  hth  lease  pth  lease     6th  lease  7th  lease 
number  number         number         number  number         number 

LEASE  NUMBERS  OF  LEASES  FOR  WHICH  THE  COMPANY  IS  BIDDING 

FORMAT  (8F10.2) 


3th  lease 
number 


DIVIDEND    | SHORT  TERM]       BOND        j  IN7ES TMENtI  SHARES   TO 
PAYMENT  LOAN  BE21ISST       '    STOTTITST  ainr  no 


PAYMENT 
REQUEST 


LOAN 
REQUEST 


REQUEST 


LABOR       |0PERATI0NS|    FRINGE 
3UY  OR       WAGE  RATE      RESEARCH       BENEFIT 
SELL  REQUEST        REQUEST         REQUEST 

FORMAT  (3F10.2) 


"*\ 
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desired  to  renew  equipment.   The  next  contains  the  amount  of  funds  a 
company  desires  to  invest  in  new  equipment  for  the  leases  whose  lease 
numbers  are  punched  in  the  corresponding  fields  of  the  first  card. 

The  election  of  depreciation  methods  are  punched  in  the  next 
two  cards.  The  lease  numbers  for  which  the  election  is  made  is  punched 
in  the  first  card,  and  the  method  number  is  punched  in  the  corresponding 
field  of  the  second  card. 

The  next  two  cards  should  contain  the  request  to  drill.  Again, 
the  first  card  contains  the  lease  numbers  of  the  leases  on  which  it  is 
desired  to  drill.  The  second  card  should  contain  the  number  of  wells 
the  company  wishes  to  drill  on  the  leases  whose  lease  numbers  are  punched 
in  the  corresponding  fields  of  the  first  card. 

The  next  card  contains  the  requests  to  fracture  or  acid  treat 
the  wells  of  a  lease.  The  first  four  fields  of  the  card  should  contain 
the  lease  numbers  of  the  leases  on  which  the  wells  are  to  be  fractured. 
The  last  four  fields  contain  the  lease  numbers  of  the  leases  on  which 
the  wells  are  to  be  acid  treated. 

The  last  card  of  the  decision  deck  contains  the  decisions  to 
install  pumps  or  a  secondary  recovery  system  on  leases  on  which  it  is 
desired  to  install  pumps.  The  last  four  fields  should  contain  the  lease 
numbers  of  the  leases  upon  which  it  is  desired  to  install  a  secondary 
recovery  system. 

The  cards  of  the  decision  deck  will  be  arranged  in  the  order 
described  here,  and  illustrated  on  the  previous  page. 

On  the  following  page  is  an  example  of  the  work  sheet  on  which 
to  make  the  decisions.  These  will  be  orovided  to  each  of  the  comoanies. 
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Parameter  List  for  Company  Information 

1.  The  length  of  the  simulated  time  period  in  months,  .  . 

2.  The  maximum  number  of  leases  a  company  may  own.   .  .  . 

3.  Penalty  for  attempting  to  beat  the  model.   ....... 

h.  The  selling  price  of  oil  per  stock  tank  barrel.   .  .  . 

S>.  The  selling  price  of  gas  per  thousand  cubic  feet.   .  . 

6.  The  abandonment  costs  per  well, .....  

7.  The  federal  tax  rate.   

8.  The  state  severance  tax  rate.   ....  

9.  The  bond  interest  rate.   »  •  .  • .  . 

10.  The  short  term  loan  interest  rate 

11.  The  royalties  paid  as  a  per  cent  of  gross  revenue.  ,  • 

12.  The  outside  investment  dividend  rate 

13.  The  tangible  costs  of  drilling  a  producing  well.  .  .  . 
111.  The  intangible  costs  of  drilling  a  producing  well.  .  . 
13>.  The  costs  per  well  of  fracturing. «  • 

16.  The  costs  per  well  of  acid  treating. 

17.  The  costs  per  well  of  installing  pumps 

13.  The  costs  per  well  of  installing  secondary  recovery.  . 

19.  The  costs  of  drilling  a  dry  hole 

20.  The  oil  production  allowance  per  well  per  month.  .  •  • 

21.  The  gas  production  allowance  per  well  per  month.  .  .  . 
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On  the  second  page  following,  is  a  list  of  the  parameters  that 
are  set  by  the  model  administrator  and  that  may  be  provided  to  the 
companies  at  the  discretion  of  the  administrator.  The  values  that  the 
administrator  desires  to  provide  the  companies  with  will  be  indicated 
in  the  column  as  labeled. 

The  Model  Administrator's  Pamohlet 
Introduction 

The  Model  Administrator's  Pamphlet  is  basically  a  guide  for  the 
use  of  the  administrator  in  the  execution  of  the  engineering-management 
simulation,  Paydirt.  It  provides  him  with  instructions  for  assigning 
parameters,  procedures  to  conduct  the  simulation,  methods  that  may  be 
used  to  tailor  the  model,  and  recommendations  for  parameter  values.  The 
administrator's  main  source  of  information  is  the  thesis,  "Paydirt,  A 
Simulation  of  an  Industry  of  Independent  Oil  Companies  for  Use  as  an 
Engineering-Management  Aid." 

Assigning  Parameters 

Parameters  have  been  defined  to  be  those  attribute  values  which 

26 

do  not  change  during  the  simulation.    'ihey  need  to  be  assigned  only 

once,  at  the  beginning  of  the  simulation.  If  the  parameters  are  changed 
during  the  simulation,  the  companies  should  be  told  of  the  change.  Also, 
even  though  the  definition  states  that  they  should  not  be  cnanged,  it 
is  advisible  to  change  the  parameters  if  it  is  found  that  the  model  is 
not  reacting  as  expected  possibly  because  poor  values  were  picked  to  begin 
with.  It  may  be  desired  to  change  some  of  the  parameters  to  simulate 
certain  conditions  within  the  simulation  such  as  having  the  labor  contract 
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terminate,  or  having  fluctuating  gas  and  oil  allowables.  Parameters 
should  be  chosen  with  care  in  order  that  the  model  be  kept  as  realistic 
as  possible.  There  is  a  list  of  parameters,  their  definitions,  and  some 
recommended  values  on  the  following  page.  Further  discussion  of  assigning 
parameters  will  be  included  in  the  section  on  tailoring  the  model.  Initial 
values  have  been  assigned  in  the  starting  deck  provided. 

Instructions  for  the  Execution  of  the  Simulation 

This  model  is  designed  to  provide  instructors  with  an  additional 
method  of  instructing  their  students  in  the  use  of  engineering  and 
financial  tools  and  to  help  them  to  analyze  data  and  make  decisions  based 
upon  that  analysis.  It  has  been  the  aim  of  the  author  to  construct  the 
model  in  order  that  the  administrator  (the  instructor)  will  have  to  do  as 
little  of  the  mechanics  as  possible.  There  are,  however,  a  few  tasks  to 
be  performed. 

The  administrator  will  need  copies  of  the  initial  starting  point 
Financial  Status  Sheet,  a  list  of  leases  available  for  sale,  and  a  sample 
Lease  Report  to  distribute  to  the  students.  These  can  be  obtained  by 
assigning  a  period  length  of  zero  and  the  number  of  copies  desired  for 
each  company  in  the  proper  fields  in  the  second  card  of  the  starting 
deck  provided,  and  submitting  the  program  to  be  run  on  the  computer. 
Do  not  forget  to  change  the  period  length  before  starting  the  first 
simulated  period. 

Before  the  first  meeting  with  the  students,  the  administrator 
should  have  an  ample  supply  of  Student's  Pamphlets,  with  the  parameter 
list  filled  in,  and  Decision  Worksheets.  These  along  with  the  sample 
output  described  above  should  be  distributed  at  the  first  meeting.  The 
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List  of  Parameters 


VARIABLE 

NAME 

ABDNFT 
ACDCOS 
ACDFAC 

ACFLOW 


DRTANG 


RECOMMENDED 
VALUE 

2000.00 

2000.00 

0.15 

1.30 


DESCRIPTION 


BDRATE 

0.05 

BEN3AS 

0.20 

BENFIT 

(start).  20 

CASHFT 

0.50 

DECLN 

0.9-0 

DITOAS 

1.00 

DEINTG 

12000.00 

7000.00 


DRIHCS 

13000.00 

DVRATS 

0.02 

EQCSFT 

0.60 

FINS 

5000.00 

FRCCOS 

Uooo.oo 

FRCFAC 

0.15 

The  cost  per  well  of  abandoning  a  lease. 

The  cost  of  acid  treating  one  well. 

The  chance  that  an  acid  treatment  will  not  effect 
a  well's  performance. 

The  factor  to  increase  production  for  a  successful 
acid  treatment  of  a  well. 

The  rate  of  interest  on  bonds. 

The  basic  benefit  rate. 

The  factor  to  control  the  option  of  having 
companies  vary  fringe  benefits. 

The  portion  of  a  collection  or  payment  that  will 
affect  the  cash  account. 

The  factor  to  change  the  rate  of  decline  after 
a  THell  has  be  treated. 

The  basic  quarterly  dividend  rate. 

The  amount  of  drilling  cost  assigned  as  an 
intangible  asset. 

The  amount  of  drilling  cost  assigned  as  a 
tangible  asset. 

The  cost  of  drilling  a  dry  hole. 

The  dividends  received  as  a  percent  of  the  total 
outside  investment. 

The  fraction  of  the  cost  of  a  producing  lease 
that  is  assigned  as  equipment  cost. 

The  penalty  fine  attempting  to  break  the  rules 
of  the  simulation. 

The  cost  to  fracture  one  well. 

The  chance  that  a  fracture  job  will  not  affect 
well  oroiuction. 
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FRFLOW 


i.50  The  factor  to  increase  production  for  a 
successful  fracturing  of  a  well. 


mxR 

O.liS 

GASALVf 

8000.00 

GPRICE 

0.16 

MAXOtfN 

20 

NPLAI 

5 

QIIAW 

1500.00 

OPRICS 

3.00 

0RBA3E 

100,000.00 

PAYBAS 

3.00 

BJFLOVT 

3.00 

PKPC0S 

8000.00 

QUOTFT 

.50 

RIABOR 

ROYL 
SSCCOS 

SRFL0W 

STAXR 
STKFkC 


3.00 

0.125 

10,000.00 

iuOO 
0.02 

o.5o 


The  federal  income  tax  rate0 

The  allowable  production  of  gas  frorr  a  well 
per  month  in  JfZSCF. 

The  price  of  natural  gas  per  MSCF. 

The  maximum  number  of  leases   a  company  may- 
own  at  any  one   time    (limited  to  twenty). 

The  number  of  companies  taking  part  in  the 
simulation   (limited  to  five). 

The  allowable  production  of  oil  from  a  well 
per  month  in  barrels. 

The  selling  price   of  oil  per  barrel. 

The  base  amount  to  be  invested  in  07? rat ions 
research. 

The  base  pay  rate  to  be  paid  to  company  employees. 

The  factor  to  increase  production  because  pumps 
■were  installed  on  the   lease. 

The  cost  of  installing  a  pump  on  one  well. 

The  factor  to  vary  the  sensitivity  of  the  market 
quote. 

The  factor  to  control  the  option  to  allow 
companies   to  vary  their  pay  rates  for  emoloyees. 

The  royalties  paid  as   a  per  cent  of  gross   revenues. 

The   cost  of  installing  a  secondary  recovery  system 
per  well. 

The  factor  to  increase   production  due   to  the 
installation  of  a  secondary  recovery  system. 

The  state  severance   tax  rate. 

The  factor  to  vary  the  sensitivity  of  a  strike. 
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STRATS 
TERM'S  P 

TERMS R 
VARC03 


0.12       The  short  terra  loan  interest  rate. 

12.00       'The  period  of  time  in  months   that  all  accounts 
payable  will  be  paid  if  no  more  are  acquired. 

12.00       The  period  of  time   in  months   that  all  accounts 
receivable  will  be   collected  if  no  more  are 
acquired. 

0.15       The  base  variable   cost  factor  to  oroduce   one 
barrel  of  oil. 
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students  should  be  given  sufficient  time  to  become  familiar  with  the 
material  and  have  a  chance  to  discuss  it  before  they  are  required  to 
start  making  decisions. 

When  it  is  time  to  start  the  simulation  with  the  first  time  period 
run,  the  administrator  has  the  choice  of  having  the  companies  key  punch 
their  own  decision  decks,  or  of  having  the  companies  submit  their  Decision 
Worksheets  to  him  for  him  or  his  assistant  to  key  punch.  If  the  administrator's 
choice  is  the  first  one,  he  should  be  particularly  careful  that  the  cards 
have  been  punched  in  the  correct  format.  When  assembling  the  deck  for 
submission,  care  should  be  taken  to  organize  it  in  the  correct  order. 
There  is  a  diagram  of  the  correct  order  for  the  arrangement  of  the  deck 
on  the  following  oage.  Also,  the  correct  control  cards  for  the  computor 
system  should  be  used  to  properly  compile  and  run  a  Fortran  IV  source 
deck.  Binary  decks  may  be  obtained  to  avoid  the  compilation  time  that 
is  necessary  with  the  source  deck. 

Administrators  are  advised  to  start  the  simulation  with  a  time 
period  length  of  one  month  for  the  first  two  or  three  runs.   After  these 
first  runs,  it  is  recommended  that  the  period  lengths  be  increased  to 
quarters  and  then  to  half  years  and  then  to  years.  The  pace  and*  amount 
of  the  increases  will  depend  upon  the  students  adaptation  to  the  simula- 
tion. When  dividing  the  students  into  companies,  the  administrator  should 
be  careful  to  insure  that  the  special  talent,  i.e.  the  better  engineers 
or  the  better  financial  managers,  is  spread  among  the  companies.  Also, 
it  is  advisable  to  start  the  simulation  with  a  labor  contract  in  force 
(RLABOR.  assigned  the  same  value  as  PAY3AS  and  BENFIT  assigned  the  same 
value  as  BENBA3).  The  result  will  be  that  the  comoanies  will  not  suffer 
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Company  Decision  Deck 


(First  Decision  Card,    Company  Cne) 


Data  Carry-Over  Deck 


'$ENTRT 


PAYDIRT  Control  Program  and  Subroutine 


A  Diagram  of  the  Final  Deck  Arrangement  for  PAYDIRT. 
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a  strike  in  the  early  months  of  the  simulation  at  the  time  when  they  are 
getting  acquainted  with  the  model. 

To  encourage  participation  and  interest  in  the  simulation,  the 
administrator  should  make  the  simulation  a  part  of  the  student's  grade 
for  the  course  it  is  being  used  for,  and  also,  set  a  standard  for  pick- 
ing a  winner  at  the  end  of  the  simulation.  This  standard  may  be  a 
combination  of  factors  from  the  Financial  Status  Sheet  such  as  the 
market  quote,  the  book  value  of  the  stockholder's  equity,  the  debt/ 
equity  ratio,  etc.,  and  should  be  set  at  the  beginning  of  the  simulation. 

There  are  no  apparent  end  effects  connected  with  the  simulation, 
however,  this  may  not  be  true  and  can  only  be  proven  true  with  experience. 
To  avoid  any  end  effects  that  might  occur,  it  is  recommended  that  two  or 
more  decision  decks  be  run  simultaneously.  This  can  be  accomplished  by 
changing  the  value  on  the  variable  NDECKS  to  the  number  of  the  decision 
decks  to  be  run.  NDECKS  is  the  third  bit  of  data  on  the  first  card  of 
the  carryover  deck.  The  decision  decks  should  be  arranged  back  to  back 
at  the  end  of  the  complete  deck.  Another  method  to  use  to  prevent  end 
effects  is  to  run  the  same  decision  deck  through  two  simultaneous  time 
periods.  This  may  be  accomplished  by  duplicating  the  decision  deck,  put- 
ting the  duplicate  behind  the  original  deck,  and  changing  NDECKS  to  two. 
With  either  of  these  methods,  any  radical  decisions  by  a  company  would 
probably  do  that  company  more  harm  than  good. 

Tailoring  the  Model 

There  are  some  margins  within  which  the  administrator  can  tailor 
the  model  to  fit  the  specific  result  that  he  may  want  from  that  simulation. 
There  are  three  methods  by  which  the  tailoring  of  the  model  can  be  achieved: 
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(l)  the  values  assigned  to  the  parameters,  (2)  the  values  assigned  to 
the  data  deck,  and  (3)  the  cancellation  of  the  companies  right  to  make 
certain  decisions. 

There  are  a  number  of  variations  that  can  be  obtained  by  setting 
certain  values  for  the  parameters  at  the  beginning  of  the  simulation  or 
during  the  simulation.  If  the  administrator  does  not  agree  with  the 
penalty  aspect  of  the  model,  he  may  set  this  parameter  equal  to  zero  and 
completely  eliminate  it.  The  message  concerning  the  attempted  violation 
will  still  be  printed  on  the  company's  Financial  Status  Sheet.  If  the 
administrator  is  not  in  accord  with  the  strike  feature  of  the  model,  he 
may  set  the  strike  sensitivity  factor  equal  to  zero  and  eliminate  it. 
The  degree  of  sensitivity  of  the  strike  feature  can  be  altered  by 
varying  the  strike  sensitivity  factor  between  zero  and  one.  To  allow 
the  companies  to  vary  employee  wages  and  fringe  benefits,  the  parameters 
RLABOR  and  BEMFIT  are  set  equal  to  zero.  This  permits  the  companies  to 
vary  wages  within  ten  per  cent  of  the  base  wage,  and  fringe  benefit  rates 
from  zero  to  twice  the  basic  benefit  rate.  This  condition  has  been  termed 
as  no  labor  contract  in  force. 

The  changes  to  be  made  during  the  simulation  include  the  changing 
of  the  price  of  oil  and  gas  to  simulate  seasonal  variations,  the  variation 
of  interest  rates  which  would  change  the  future  value  of  money,  and  the 
variation  of  tax  rates  to  simulate  changes  in  government  policy.  As 
experience  with  the  model  is  obtained,  new  ideas  for  changes  will  be 
apparent. 

The  model  may  be  tailored  by  arranging  the  values  in  the  initial 
starting  deck.  If  it  is  desired  that  the  competition  for  leases  be  eliminated, 
certain  leases  may  be  picked  and  the  same  lease  may  be  assigned  to  all  of 
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the  comoanies  but  under  different  numbers.  If  it  is  desired  that  the 
chance  of  drilling  a  dry  hole  be  eliminated,  the  geological  factors 
may  be  made  equal  to  one  and  every  lease  will  be  a  oroducing  lease. 

The  disallowing  of  decisions  is  another  method  of  tailoring  the 
model.  If  the  administrator  decides  to  stress  engineering,  he  may  do 
so  by  not  allowing  financial  decisions  to  be  made.  Even  the  bidding 
may  be  eliminated  by  assigning  leases  to  companies.  .  The  control  of 
the  administrator  would  be  to  check  the  decision  deck  before  submitting 
it  to  insure  that  the  decisions  that  are  disallowed  are  not  read  in. 


CHAPTER  VI 

CONCLUSION  AND  RECOMMENDATIONS 

Conclusion 
Paydirt  is  a  model  constructed  to  simulate  independent  oil 
companies  and  their  operations.  It  is,  at  best,  a  crude  simulation, 
for  not  only  were  the  activities  of  the  company  itself  modeled,  but  it 
was  necessary  to  attempt  to  model  oil  reservoirs  that  have  an  inherent 
wealth  of  uncertainty.  Even  though  it  is  described  as  being  crude,  it 
is  operable  as  a  simulation  and  does  reflect  many  of  the  characteristics 
of  the  events  associated  with  oil  companies.   As  described  in  the  previous 
chapter,  the  model  is  flexible  enough  to  allow  general  or  restricted 
operations  of  oil  companies  to  be  simulated. 

Recommendations 
At  the  beginning  of  this  thesis,  it  was  stated  that  the  construction 
of  any  entity  required  some  necessary  groundwork  or  foundation.  Now  that 
the  model  is  constructed,  it  is  felt  that  it  may  be  thought  of  as  a 
foundation  for  future  development  of  the  simulation  of  the  oil  industry. 
There  may  never  be  a  final  model.  As  computor  technology  is  increased  and 
more  knowledge  or  the  simulation  of  events  is  obtained,  the  simulation  of 
the  industry  will  continually  be  improved  if  properly  pursued.  The  future 
models  may  not  only  be  used  for  training,  but  they  may  also  be  used  to 
study  the  effects  that  changes  in  environment  will  have  on  the  oil 
industry.  Examples  of  these  environmental  changes  might  be  the  change 
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in  policy  of  importation  of  oil  and  natural  gas,  the  increased  use  of 
liquified  natural  gas,  the  advent  of  new  types  of  automobile  engines, 
the  arrival  of  supersonic  jet  travel,  and  many  others.  These  events  may 
seem  farfetched  at  this  point,  but  they  will  affect  the  oroduction  of  oil 
from  the  reservoir  through  the  demand  for  petroleum  products.  The  next 
steps  to  be  taken  are  recommended  as  follows: 

1.  A  further  study  should  be  made  of  the  costs  involved  in  the 
exploration  and  development  of  oil  leases  and  of  the  manner  in 
which  these  costs  are  allocated  to  revenues. 

2.  An  attempt  is  needed  to  provide  a  better  model  of  different 
types  of  oil  and  gas  reservoirs  including  compatible  reservoir 
characteristics. 

3.  Further  work  is  required  on  the  model,  Paydirt,  in  order 
that  it  could  include  simulations  of  transportation,  refining, 
and  the  marketing  aspects  of  the  industry. 

Although  it  is  felt  that  Paydirt  is  a  complete  working  model, 
there  is  much  to  be  done  before  it  will  be  comprehensive  enough  to  achieve 
its  full  ootential. 
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Lease  Number   f  Acreage  1300 

Romero's  Ranch  Lease 

Area  Description:   This  land  is  rocky  and  sandy  and  supports  very  little 
foliage  growth.  The  area  receives  sparce  annual  rainfall  and  consequently 
is  not  used  as  pasture  by  the  owner.   The  lease  is  the  southwestern 
section  of  a  3500  acre  ranch. 

Geological  Data:   No  geological  studies  or  analysis  have  been  made  of 
the  lease.  Area  magnetic  surveys  have  indicated  that  a  favorable 
sedimentary  basin  exists  in  this  area,  but  no  favorable  structures  can 
be  detected  from  the  outcroppings. 

Drilling  History:   There  is  no  record  of  any  drilling  having  been  performed 
on  this  lease.  A  portion  of  a  ranch  about  25  miles  west  of  the  lease  was 
develooed  about  a  year  and  a  half  ago.   The  wells  were  drilled  to  a 
depth  of  approximately  ^-000  feet  and  are  presently  averaging  about  thirty 
barrels  a  day  with  ten  per  cent  77a ter. 

Terms:  Mr.  Romero  will  acceot  no  less  than  seventy-seven  cents  oer  acre  as 
a  bonus  for  the  leasing  rights.  The  Lessee  must  begin  drilling  within  one 
year  or  be  liable  for  a  delay  rental  payment  of  one  dollar  per  acre  per  year, 
The  lease  will  be  automatically  terminated  at  the  end  of  five  years  or  when 
it  is  mutually  agreed  that  production  of  oil  and/or  gas  is  not,  or  is  no 
longer  economical. 


Lease  Number   3  Acreage  1995 

Barclay  Farms  Lease 

Area  Description:   The  land  in  the  area  of  the  lease  is  rich  rolling  farm 
land  used  to  grow  soy  beans  and  corn.   The  surface  elevation  is  about 
1000  feet  above  sea  level,  and  the  area  is  dotted  with  lakes  and  ponds. 

Geological  Data:   There  is  no  geological  data  available  to  analyze. 
Seismic  readings  were  taken  on  a  farm  about  ten  miles  northeast  of  this 
lease  and  indicated  that  an  unconformity  existed  at  a  depth  of  aoproximately 
3500  feet.   Also  there  was  a  possible  porous  layer  at  a  depth  of  about 
ij-600  feet. 

Drilling  History:   There  has  been  no  drilling  on  this  lease.  A  well  was 
drilled  on  the  lease  mentioned  above  to  a  depth  of  about  5000  feet,  and 
was  considered  a  duster. 

Terms:  The  owner  will  accept  the  highest  bid  offered,  but  it  must  be  at 
least  one  dollar  per  acre.   The  Lessee  will  also  be  liable  for  unnecessary 
damage  to  crops  or  livestock.  The  Lessee  must  begin  drilling  within  one 
year  or  he  must  oay  the  lessor  one  dollar  per  acre  per  year  until  drilling 
does  commence.   The  lease  will  be  terminated  at  the  end  of  five  years 
automatically  if  drilling  has  not  begun  or  when  it  is  mutually  agreed  that 
production  of  oil  and/or  gas  is  not,  or  is  no  longer  economical. 
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Lease  Number     j*  Acreage 


Past  Lease   Production  Tim*:   3  months 

Producing  Formation:  Queen  (sand) 

Average   Producing  Depth:  30h0  ft. 

Oil  Wells: 

Currently  being  produced: 

Flowing:  ~9» 

Pumping:  0. 

Ga3  Lift:  0. 
Wells  that  have  produced  oil: 

Shut  in:  0. 

Plugged  and  abandoned:  0. 

Converted  to  gas  wells:  0. 


Gats  '.Yells: 
Producing: 
Shut  in: 

0. 
0. 

Dry  and  abandoned: 
Total  wells  drilled: 

0, 
9. 

Production  to  date: 
Oil  Production: 
Water  Production: 

7500. 

750. 

16^0 


Gas  Production : 

Gas  produced  from  oil:  2835.  (M5CF) 

Dry  Gas: 

Total  gas  produced:    2835. 

Reservoir  Data: 

Initial  reservoir  pressure:  2361. 

Present  estimated  reservoir  pressure:  2300. 

Saturation  pressure:  23OO. 

Oil  A.P.I,  gravity:  38° 

Sulphur  percentage:  1.07 


Owner:  ,  12?  5/* 


of 


Royalty  Interest: 
Owner: 
Other:  0 

Undepreciated  tangible  assets  on  lease:    not  available  at  this   time. 

Estimated  Reserves:  800,000. 

liinimum  3id:  $1,500,000. 
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Lease  Number     _%_ 


Acreage  1112 


fast  Lease   Production  Time:   9. Months 

Producing  Formation:  Montoya 

Average   Producing  Depth:  7000.  ft. 

Oil  Wells : 

Currently  being  produced: 

Flowing:  11. 

Pumping :  0. 

Gas  Lift:  0. 

Wells  that  have  produced  oil: 
,  Shut  in: 

Plugged  and  abandoned:    0. 
Converted  to  gas  wells:   0. 


Gas  Wells: 
Producing: 
Shut  in: 

Dry  and  abandoned: 
Total  wells  drilled: 


0. 

0. 

2. 

13. 


Production  to  date  2 

Oil  Production:  103,000. 

Water  Production:         .  0. 

Gas  Production: 

Gas  produced  from  oil: 

Dry  Gas: 

Total  gas  produced: 


Reservoir  Data:  :  • 

Initial  reservoir  pressure: 

Present  estimated  reservoir  pressure: 

Saturation  pressure: 
Oil  A.P.I,  gravity: 
Sulphur  percentage: 

Royalty  Interest: 
Owner: 
Other: 


73,170.      (MSCF) 

0. 
73,170. 

3650. 


Undepreciated  tangible  assets   on  lease: 
Estimated  Reserves:  500,000. 

Minimum  Bid:  $915,000. 


3600. 
10.3? 
.3ii 


12.  # 

0.0 

Hot  available  at  this  time, 
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Lease  Number  »  Acreage  2152 

Bell's  Farm  Lease 

Area  Description:   This  lease  is  a  tract  of  fairly  level  farm  land  that 
averages  about  500  feet  above  sea  level.   It  is  located  in  a  large  valley 
surrounded  by  low  mountain  ridges.   There  is  a  moderate  size  stream  that 
winds  down  the  middle  of  the  valley  and  cuts  across  the  southwest  section 
of  the  lease.   The  roads  to  and  in  the  area  are  excellent. 

Geological  Data:  No  surveys  have  been  done  on  this  lease  to  date.  Seismic 
readings  were  taken  on  an  adjacent  lease  in  January  of  1966  which  indicated 
that  a  dome  structure  exists  under  that  lease.   This  has  proven  to  be  correct 
by  several  exploratory  wells  that  have  been  drilled  on  that  lease.  From  the 
information  received  it  is  believed  that  the  structure  extends  under  this 
lease  also.  The  producing  formation  appears  to  be  the  Seven  Hi vers  (sand). 

Drilling  History:   There  is  no  history  of  drilling  on  this  lease  that  can 
be  found.  The  wells  on  the  adjacent  lease  are  producing  from  about  ?500 
feet  and  are  flowing  enough  to  easily  make  tneir  allowable. 

Terms:  Mr.  Bell  will  consider  no  less  than  five  dollars  an  acre  as  a  bonus 
for  leasing.  Drilling  is  to  commence  within  one  year  or  the  lessor  will  pay 
the  lessee  the  amount  of  one  dollar  per  acre  per  year  as  a  delay  rental 
payment.  The  lease  will  be  terminated  at  the  end  of  five  years  or  when  it 
is  mutually  agreed  that  production  of  oil  and 'or  gas  is  not,  or  is  no 
longer  economical. 


Lease  Number   7  Acreage  1222 

Hillsdale- Valley  Farm  Lease 

Area  Description:   This  area,  including  the  lease,  is  slightly  rolling  farm 
land  used  primarily  to  grow  corn  and  wheat.  There  is  plenty  of  water  in  the 
area  and  the  roads  to  and  in  the  area  are  excellent. 

Geological  Data:  None. 

Drilling  History:   There  is  no  record  of  any  drilling  having  been  performed 
on  this  lease. 

Terms:  Because  it  is  excellent  farming  land,  the  owner  will  consider  no 
less  than  one  dollar  an  acre  for  a  bonus  to  lease.   Drilling  will  commence 
within  one  year  or  the  lessee  will  pay  the  lessor  a  delay  rental  payment 
of  one  dollar  per  year  per  acre.  The  lease  will  terminate  at  the  end  of 
five  years  or  when  it  is  mutually  agreed  that  production  of  oil  and 'or  gas 
is  not,  or  is  no  longer  economical. 
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Lease  Number   8  Acreage  5000 

Renold's  Ranch  Lease 

Area  Description:   The  area  is  rolling  open  range  in  western  Kansas,  used 
for  cattle  grazing.   Except  for  a  few  ponds  on  the  ranch,  there  is  no 
available  source  of  water.  Roads  into  the  area  are  gravel  roads  in  good 
condition  most  of  the  year. 

Geological  Data:   There  are  very  limited  rock  outcroppings  visible  on  the 
lease.  Aerial  photography  shows  that  there  is  a  little  evidence  of  the 
presence  of  faults  in  the  northeastern  section  and  the  possible  beginning 
of  an  anticline  structure  in  the  southern  portion.  A  recent  inspection 
revealed  two  possible  oil  seeps  in  the  area  of  the  faults. 

Drilling  History:  No  drilling  has  been  done  on  this  lease  that  can  be 
determined.   A  wildcat  well  x<ras  drilled  on  a  lease  about  thirty  miles  west 
of  this  lease  to  a  depth  of  about  ^000  feet.   It  was  considered  a  duster. 

Terms:   The  owner  will  consider  bids  of  twenty  cents  an  acre  or  better  as 
a  bonus  for  the  lease.  Drilling  is  to  commence  within  one  year  or  a  delay 
rental  must  be  paid  by  the  lessee  to  the  lessor  of  one  dollar  oer  acre  per 
year.  The  lease  will  be  terminated  at  the  end  of  five  years  or  when  it  is 
mutually  agreed  that  production  of  oil  and /or  gas  is  not,  or  is  no  longer 
economical. 


Lease  Number   9  Acreage  1311 

Blue  Marsh  Leash 

Area  Description:   The  area  is  generally  flat  and  marshy  land  with  an 
elevation  right  at  sea  level.  No  farming  is  done  in  this  area  because 
of  the  marshy  nature  of  the  land.   There  are  a  few  roads  but  transportation 
is  mainly  by  boat. 

Geological  Data:   There  is  a  scarcity  of  geological  information  for  this 
area,  however,  the  region  is  becoming  famous  for  its  many  salt  domes. 
An  aerial  magnetic  survey  of  this  area  was  made  in  1962  which  indicated  that 
a  dome  may  exist  in  the  vicinity  of  the  lease.  Seismic  readings  have  not 
been  taken  to  confirm  or  deny  this  indication. 

Drilling  History:   There  is  no  evidence  of  past  drilling  on  this  or 
adjacent  leases. 

Terms:  The  owners  will  consider  no  less  than  one  dollar  per  acre  bonus 
for  this  lease  and  will  lease  to  the  highest  bidder.  Drilling  is  to  com- 
mence within  one  year  or  a  delay  rental  of  one  dollar  per  acre  per  year 
must  be  paid  to  the  lessor  by  the  lessee.   The  lease  will  be  terminated 
at  the  end  of  five  years  or  x-;hen  it  is  mutually  agreed  that  production  of 
oil  and/or  gas  is  not,  or  is  no  longer  economical. 
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Lease  Number     10 


Acreage     7oQ 


Past  Lease   Production  Time;        7  Years 

Producing  Formation:  Delegare 

Average   Producing  Depth:  i960  ft. 

Oil  Wells : 

Currently  being  produced: 

Flowing:  0. 

Pumping:  .  2. 

Gas   Lift:  0. 
Wells   that  have  produced  oil: 

Shut  in:  0. 

Plugged  and  abandoned:  2\ 

Converted  to  gas  wells:  0. 

Gas  Wells: 

Producing:  .    0. 

Shut  in:  •.  0. 

Dry  and  abandoned:  1. 

Total  wells  drilled:  5* 

Production  to  date: 
Oil  Production: 
Water  Production: 
Gas  Production: 

Gas  produced  from  oil: 

Dry  Gas : 

Total  gas  produced: 

Reservoir  Data: 

Initial  reservoir  pressure: 

Present  estimated  reservoir  pressure: 

Saturation  pressure  t 

Oil  A.P.I,  gravity: 

Sulphur  percentage: 

Royalty  Interest: 
Owner: 
Other: 

Undepreciated  tangible  assets   on  lease: 
Estimated  Reserves: 
ilinimum  Bid: 


7;  £00.. 

0. 

830.      (KSCF) 

0. 
830. 


1500. 

2300. 

29° 

0. 


12.52 

0.0 
none 
10,000. 

$S,ooo. 
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Lease  Number      11 


Acreage    2000 


Past  Lease   Production  Time:  1  month 

Producing  Formation:  lates 

Average   Producing  Depth:  1300.  ft. 

Oil  Wells : 

Currently  being  produced: 

Flowing:  1« 

Pumping:  0. 

Ga3  Lift:  0. 
Wells  that  have  produced  oil: 

Shut  in:  0. 

Plugged  and  abandoned:  0. 

Converted  to  gas  wells:  0. 


Gass  '.Veils: 
Producing: 
Shut  in: 

Dry  and  abandoned: 
Total  wells  drilled: 


0. 
0. 

0. 

1. 


12  BPD 


Production  to  date : 

Oil  Production:  ^00. 

Water  Production:  0, 

Gas  Production: 

Gas  produced  from  oil:  122, 

Dry  Gas :  0. 

Total  gas  produced:  122, 


(MSCF) 


Reservoir  Data: 

Initial  reservoir  pressure: 

Present  estimated  reservoir  pressure: 

Saturation  pressure: 
Oil  A.P.I,  gravity: 
Sulphur  percentage: 

Royalty  Interest: 
Owner: 
Other: 


21Ii9. 
21u0. 
2000. 
Ill-" 
1.3 


i&# 


Undepreciated  tangible  assets   on  lease:    not  available 
Estimated  Reserves:  50,000. 

Minimum  Bid:  •  $100,000. 
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Lease  Number     12 


Acreage  3100 


9  Months 


fast  Lease   Production  Time: 

Producing  Formation: 
Average   Producing  Depth: 

Oil  Wells: 

Currently  being  produced: 
Flowing: 
Pumping : 
Gas   Lift: 
Wells   that  have  produced  oil: 
Shut  in: 

Plugged  and  abandoned: 
Converted  to  gas  wells: 

Gais  Yfells: 
Producing: 
Shut  in: 

Dry  and  abandoned: 
Total  wells  drilled: 

Production  to  date: 
Oil  Production: 
Water  Production: 
Gas   Production: 

Gas  produced  from  oil: 

Dry  Gas: 

Total  gas  produced: 


Reservoir  Data: 

Initial  reservoir  pressure: 

Present  estimated  reservoir  pressure: 

Saturation  pressure: 
Oil  A.P.I,  gravity: 
Sulphur  percentage: 

Royalty  Interest: 
Owner: 
Other,: 

Undepreciated  tangible  assets  on  lease: 

Estimated  Reserves : 

Mnimura  Bid: 


Blinebry 
5575  ft. 

(Yes  o- Lima) 

21. 

0. 
0. 

v 

0. 
0. 
0. 

0.     • 
0. 

0. 
21. 

160,500. 
15,000. 

53,770.   (MSCF) 

53,770. 

re  s sure : 

2005.   PS I 
1910. 
3000. 
•     .       Ll° 

.05 

12.52 
0.0 

Not  available  at  this   time. 

i,h5o,ooo. 

$2,000,000. 
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Lease  Number   13  Acreage  30 CO 

"Wastelands"  Lease 

Area  Description:   The  area  in  which  this  lease  is  situated  is  very  hilly 
and  rocky.  There  is  very  little  rainfall  and  as  a  result  there  is  very 
little  water  and  almost  no  vegetation.   The  land  is  not  used  for  anything. 

Geological  Data:   Other  than  aerial  mappings  of  the  area,  no  other  recent 
studies  have  been  made  of  the  area.   There  are  stories  that  this  lease  was 
drilled  at  one  time  during  the  1920' s,  but  the  records  or  the  location  of 
the  wells  cannot  be  found.   The  aerial  maps  appear  to  indicate  that  several 
dome  structures  may  exist  under  the  lease.  Studies  of  this  area  suggest 
that  the  Yates-Seven  Rivers  formation  may  occur  this  far  north. 

Drilling  History:   From  the  information  that  can  be  gathered  in  the  area, 
the  original  wells  were  drilled  about  1926  to  a  depth  of  about  2000  feet 
by  the  cable  tool  method.   The  wells  that  were  drilled  x-rere  fairly  produc- 
tive, but  due  to  the  high  cost  of  transporting  the  oil,  inefficient  produc- 
tion methods  and  the  Great  Depression  of  the  thirties,  the  company 
apparently  went  bankrupt  and  abandoned  the  field. 

Terms:  Because  it  is  fairly  certain  that  oil  does  exist  on  this  lease,  the 
new  owner  of  this  lease  will  not  accept  less  than  two  dollars  per  acre  for 
the  leasing  rights.   Drilling  must  be  started  within  one  year  or  a  delay 
rental  payment  of  one  dollar  per  acre  per  year  will  be  paid  to  the  lessor 
by  the  lessee.   The  lease  will  terminate  at  the  end  of  five  years  or  when 
it  is  mutually  agreed  that  production  of  oil  and/or  gas  is  not,  or  is  no 
loneer  economical. 


Lease  Number   ll|  Acreage   993 

West  Windy  County  Lease 

Area  Description:   This  lease  is  an  old  run  down  farm  owned  by  an  old  man 
who  now  resides  in  Kansas  City.   Most  of  the  farm  is  situated  on  the  side 
of  a  long  sloping  hill.  About  fifty  per  cent  of  the  area  is  wooded.  A 
lake  on  the  property  provides  plenty  of  water  and  the  roads  to  the  lease 
are  in  good  condition. 

Geological  Data:  None. 

Drilling  History:   None. 

Terms:   The  owner  will  consider  no  bids  less  than  one  dollar  per  acre. 
Lessee  will  drill  within  one  year  or  pay  the  lessor  one  dollar  per  acre 
per  year  until  drilling  does  commence  or  the  lease  is  terminated.   The 
lease  will  terminate  at  the  end  of  five  years  or  when  it  is  mutually  agreed 
that  production  of  oil  and/or  gas  is  not,  or  is  no  longer  economical. 
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Lease  Number   15  Acreage  ^-052 

Richard  Burtron  Estate 

Area  Description:   The  terrain  in  this  area  is  mountainous  and  very  rocky 
with  lush  vegetation.   The  estate  is  isolated  by  mountain  ranges  on  all 
sides,  but  roads  through  several  passes  leading  to  the  lease  are  fair  and 
passable  the  year  round. 

Geological  Data:  Magnetic  surveys,  aerial  photographs  and  ground  maps 
have  been  made  of  this  area  recently.   There  are  numerous  faults  apparent 
from  the  visible  rock  outcroppings  with  several  showing  the  signs  of  the 
black  oil  sands. 

Drilling  History:   Fifteen  years  ago  a  well  was  drilled  on  the  southern 
portion  of  this  lease  to  a  depth  of  3100  feet.  A  show  of  oil  was  found, 
but  it  was  not  considered  economical  to  produce  and  the  well  was  abandoned. 
No  other  drilling  has  been  done  in  the  area. 

Terms:  The  owner  will  lease  the  whole  estate  to  the  highest  bidder  for 
at  least  ten  thousand  dollars  or  more.   Drilling  will  commence  before  the 
end  of  one  year  or  the  lessee  will  pay  a  delay  rental  payment  of  one  dollar 
per  acre  per  year  to  the  lessor.   The  lease  will  be  terminated  at  the  end 
of  five  years  if  no  drilling  has  been  done  or  if  it  is  mutually  agreed 
that  production  of  oil  and/or  gas  is  not,  or  is  no  longer  economical. 


Lease  Number   16  Acreage  ?500 

Lake  Tract  Lease 

Area  Description:   The  area  of  this  lease  is  relatively  flat  and  is  about 
700  feet  above  sea  level.  It  is  bordered  on  the  west  by  rolling  hills  that 
level  off  into  a  plain  that  is  approximately  1500  feet  in  elevation.   The 
area  is  part  of  a  state  wildlife  reserve. 

Geological  Data:   Geological  surveys  are  now  in  progress  and  evidence  so 
far  indicates  that  there  is  a  good  possibility  that  several  potential  oil 
traps  may  exist  on  the  lease.   This  evidence  was  derived  from  an  analysis 
that  has  just  been  completed  on  some  partially  burried  outcroppings  in  the 


Drilling  History:  No  drilling  has  been  done  on  this  lease  thus  far.   The 
land  is  owned  by  the  state  and  is  completely  undeveloped. 

Terms:   The  state  will  allow  only  the  minimum  amount  of  disturbance  of 
the  natural  habitat  of  the  plant  and  wildlife.   The  minimum  bid  the  state 
will  consider  will  be  five  dollars  an  acre.   Drilling  will  commence  within 
one  year  or  the  lessee  will  pay  the  state  a  delay  rental  of  one  dollar  per 
acre  per  year.   The  lease  will  be  terminated  at  the  end  of  five  years  or 
when  it  is  mutually  agreed  that  production  of  oil  and/or  gas  is  not,  or  is 
no  longer  economical. 
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Lease  Number     17  Acreage     hlOO 


Past  Lease   Production  Time:      9  months 

Producing  Formation:  Grayburg-Queen 

Average   Producing  Depth:  3650  ft. 

Oil  Wells: 

Currently  being  produced: 

Flowing:  13. 

Pumping:  0. 

Gas  Lift:  0. 
Wells  that  have  produced  oil: 

Shut  in:  0, 

Plugged  and  abandoned:  0. 

Converted  to  gas  wells:  0. 

Gas  Wells: 

Producing:  t        0. 

Shut  in:  0. 

Dry  and  abandoned:  0. 

Total  wells  drilled:  13. 

Production  to  date: 

Oil  Production:  120,000. 

Water  Production:  5,000. 
Gas  Production: 

Gas  produced  from  oil:  5,h99.  (MSCF) 

Dry  Gas :  0. 

Total  gas  produced:  5,1*99. 

Reservoir  Data: 

Initial  reservoir  pressure:  1807. 

Present  estimated  reservoir  pressure:  1730. 

Saturation  pressure:  2000. 

Oil  A.P.I,  gravity:  U|* 

Sulphur  percentage:  »5 

Royalty  Interest: 
Owner: 
Other:  HS% 

Undepreciated  tangible  assets   on  lease:  $1,200,000.    (estimated) 

Estimated  Reserves:  1,500,000. 

Minimum  Bid:  $2,000,000. 
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Lease  Number   1°  Acreage  2025 

Downs  Estate  Lease 

Area  Description:   Rolling,  slightly  wooded  countryside  characterizes  the 
entire  2025  acres  offered  for  lease  by  the  beneficieries  of  the  Downs 
Estate.  The  lease's  elevation  is  about  1500  feet  above  sea  level  and  there 
are  no  commercial  or  residential  developments  within  ten  miles. 

Geological  Data:   There  is  no  geological  data  available. 

Drilling  History:   No  wells  have  been  drilled  on  this  land  to  date.   The 
Petro  Wildcat  Company  has  begun  drilling  on  a  farm  two  miles  east  of  the 
estate  on  the  basis  of  some  favorable  seismic  readings.   These  readings 
indicate  that  the  possibility  of  a'  oinchout  exists  on  that  lease,  and  from 
the  lay  of  the  land,  the  pinchout  may  extend  under  part  or  all  of  the  Downs 
Estate. 

Terms:   The  owners  of  the  Estate  have  turned  down  an  offer  of  two  dollars 
an  acre  for  a  leasing  bonus  and  would  consider  an  offer  of  five  dollars  or 
more  an  acre.  Drilling  is  to  commence  within  one  year  or  the  lessee  will 
be  liable  to  the  lessor  for  a  delay  rental  payment  of  one  dollar  oer  year 
per  acre.   The  lease  will  terminate  at  the  end  of  five  years  is  no  drilling 
has  been  done  or  in  the  event  that  it  is  mutually  agreed  that  production 
of  oil  and/or  gas  is  not,  or  is  no  longer  economical. 


Lease  Number  19  Acreage  I56I 

Henry  A.  Jackson  Lease 

Area  Description:   This  lease  is  located  in  the  southeastern  portion  of 
Kansas  where  the  terrain  is  rather  hilly.   There  are  some  wooded  spots  on 
the  lease  and  the  rest  is  grass  land  used  for  grazing  horses. 

Geological  Data:   There  is  no  detailed  geological  data  presently  available 
for  this  lease.   There  is  little  surface  evidence  that  there  are  subsurface 
structures  under  the  lease  that  may  contain  gas  or  oil.   However,  from 
general  geological  knowledge  of  the  area,  the  Bartlesville  Sand  formation 
should  lie  under  this  lease  at  an  approximate  depth  of  2000  feet. 

Drilling  History:   There  is  no  record  of  any  drilling  that  has  been  done 
on  this  lease  or  on  adjacent  leases. 

Terms:  Mr.  Jackson  will  accept  no  less  than  two  dollars  an  acre  as  a  bonus 
for  the  leasing  rights.  Drilling  must  begin  within  one  year  or  a  delay 
rental  of  one  dollar  per  acre  per  year  must  be  paid  to  the  lessor.   The 
lease  will  be  terminated  at  the  end  of  five  years  if  no  drilling  has  been 
accomplished  or  at  the  time  when  it  is  mutually  agreed  that  production 
of  oil  and/or  gas  is  not,  or  is  no  longer  economical. 
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Lease  Number     20 


Acreage     3555 


fast  Lease   Production  Time:     9  months 


Producing  Formation: 
Average   Producing  Depth: 


McKee    (Simpson) 
9000.   ft. 


Oil  Wells: 

Currently  being  produced: 

Flowing:  17. 

Pumping :  0. 

Gas   Lift:  0. 
Wells   that  have  produced  oil: 

Shut  in:  0. 

Plugged  and  abandoned:  0. 

Converted  to  gas  wells:  0. 


Producing: 

0.   ■ 

Shut  in: 

0, 

Dry  and  abandoned: 

0. 

Total  wells  drilled: 

17. 

Production  to  date : 

Oil  Production: 

210,000. 

Water  Production: 

0. 

Gas  Production : 

66,617. 

(luSCF) 

Gas  produced  from  oil: 

Dry  Gas: 

Total  gas  produced: 

66,617. 

Reservoir  Data: 

Initial  reservoir  pressure: 

Present  estimated  reservoir  pressure: 

Saturation  pressure : 
Oil  A.P.I,  gravity:       '"■:/ 
Sulphur  percentage: 

Royalty  Interest: 
Owner : 
Other: 

Undepreciated  tangible  assets   on  lease: 

Estimated  Reserves: 

Itinimum  Bid: 


3315. 

2100. 

3360. 

Ii0° 

0. 


12.52 
0.0 


$1,080,000.    (estimated) 

2,000,000. 
$1,300,000. 
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Lease  Number 


Acreage     350li 


fast  Lease   Production  Time:   1  month 

Producing  Formation:  Silurian 

Average   Producing  Depth:  6000.   ft. 

Oil  Wells: 

Currently  being  produced: 

Flowing:  1. 

Pumping:  0. 

Gas  Lift:  0. 
Wells  that  have  produced  oil: 

Shut  in:  0, 

Plugged  and  abandoned:  0. 

Converted  to  gas  wells:  0. 

Gats  Wells: 

Producing:  0. 

Shut  in:  .    0. 

Dry  and  abandoned:  0, 

Total  wells  drilled:  1. 

Production  to  date : 

Oil  Production:  . 

Water  Production: 
Gas   Production : 

Gas  produced  from  oil: 

Dry  Gas: 

Total  gas  produced: 

Reservoir  Data: 

Initial  reservoir  pressure: 

Present  estimated  reservoir  pressure: 

Saturation  pressure: 
Oil  A.P.I,  gravity: 
Sulphur  percentage: 

Royalty  Interest: 
Owner: 
Other: 


500. 
100. 

km   (MSCF) 

Urn 

k. 


2930. 

2930. 

3000. 

Ii3.6 

.69 


12.52 
0.0 


Undepreciated  tangible  assets   on  lease:     n°t  available. 
Estimated  Reserves:  1,500,000. 

Minimum  Bid:  $1,000,000. 
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Lease  Number  22  Acreage   750 

John  Blackman  Lease 

Area  Description:  This  lease  is  part  of  a  large  farm  that  borders  on  the 
Kansas  River,  and  is  a  strip  of  flat  land  that  lies  between  the  river  and 
some  sloping  hill  country.   The  land  is  used  to  grow  wheat  and  sorghum  grains, 

Geological  Data:  The  owner  has  had  seismic  studies  made  of  the  lease.   The 
results  indicate  that  a  prospective  porous  formation  exists  at  about  3500 
feet  to  about  ^200  feet  which  is  thought  to  be  the  Mississippian  formation. 
Another  formation  beginning  at  approximately  ^500  feet  also  looks  very 
favorable. 

Drilling  History:   There  is  no  drilling  history  for  this  lease.   About 
three  miles  up  the  river,  development  has  just  been  completed  this  year  on 
the  Jack  Whitelinger  Lease.  Ten  wells  were  completed  to  an  average  depth 
of  about  ^-000  feet,  and  the  wells  are  now  flowing  roughly  100  barrels  per 
day.  There  has  been  no  other  drilling  activity  in  the  area. 

Terms:  The  owner  will  consider  bids  of  not  less  than  five  dollars  an 
acre  plus  two  thousand  dollars  which  is  the  cost  of  the  seismic  study. 
Lessee  must  begin  to  drill  within  one  year  or  pay  lessor  a  delay  rental 
payment  of  one  dollar  per  acre  per  year  until  drilling  commences  or  the 
lease  is  terminated.  The  lease  is  terminated  at  the  end  of  five  years  or 
in  the  event  that  it  is  mutually  agreed  that  production  of  oil  and.^or 
gas  is  not,  or  is  no  longer  economical. 


Lease  Number   21  Acreage  1675 

Black  Swamp  Lease 

Area  Description:  This  lease  is  entirely  swamp  land  located  near  the 
Mississippi  river  in  northern  Louisiana.  There  are  very  few  roads  to 
the  area  and  it  is  inhabited  only  by  wildlife. 

Geological  Data:  There  is  no  geological  data  available  for  this  lease. 

Most  of  the  time  the  swamp  is  covered  with  a  black  oily  film  from  which 

the  swamp  gets  its  name.  The  oily  film  could  result  from  oil  sweeps  or 
it  may  be  from  other  sources. 

Drilling  History:  None. 

Terms:  The  owner  will  lease  this  land  for  not  less  than  fifty  cents  an 
acre.  Drilling  must  start  within  one  year  or  a  delay  rental  payment  of 
one  dollar  per  acre  per  year  will  be  paid  to  the  lessor.   The  lease  will 
terminate  at  the  end  of  five  years  if  no  drilling  has  begun  or  when  it  is 
mutually  agreed  that  production  of  oil  and/or  gas  is  not,  or  is  no  longer 
economical. 
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Lease  Number   ^U  Acreage  1000 


Suburban  Number  1  Lease 

Area  Description:   The  area  of  the  lease  is  a  hilly  wooded  area  on  which 
exists  a  newly  developed  residential  section.   The  lease  is  owned  by  a 
number  of  landowners  most  of  whom  live  on  the  land.   They  have  banned 
together  to  form  a  royalty  company  to  handle  lease  arrangements.   The 
area  available  for  a  leasing  company's  operations  is  limited  due  to  the 
close  house  spacing. 

Geological  Data:   The  royalty  company  has  hired  a  geologist  to  make  a 
study  of  the  lease  to  determine  the  possibility  of  finding  oil.   Because 
of  the  nature  of  the  area,  only  a  few  seismic  readings  could  be  taken,  but 
the  study  concluded  that  the  possibility  of  the  existence  of  oil  in  a 
porous  formation  at  a  deoth  of  3100  feet  was  excellent.   This  formation 
is  thought  to  be  part  of  the  Yates  formation. 

Drilling  History:   This  lease  is  adjacent  to  a  lease  that  is  now  being 
developed,  but  drilling  data  from  the  lease  is  being  kept  confidential. 
From  the  little  information  that  can  be  obtained,  producing  depths  appear 
to  be  about  ^J-OOO  feet,  and  the  wells  are  flowing  well  enough  to  make 
their  allowables. 

Terms:  The  royalty  company  will  not  consider  bids  of  less  than  twenty 
dollars  an  acre  bonus  and  will  lease  to  the  highest  bidder.  Severe 
restrictions  will  be  placed  on  the  driller  because  of  this  being  a  resident- 
ial area.  Drilling  is  to  commence  within  one  year  or  a  delay  rental  will 
be  paid  to  the  lessor  by  the  lessee  of  one  dollar  per  acre  per  year.   The 
lease  will  be  terminated  at  the  end  of  five  years  or  when  it  is  mutually 
agreed  that  production  of  oil  and/or  gas  is  not,  or  is  no  longer  economical, 


Lease  Number   25  Acreage   910 

Bill  Smith  Lease 

Area  Description:   This  lease  is  located  in  the  Ohio  River  valley  in  Ray 
County,  Kentucky.   The  land  is  quite  hilly  although  the  hills  are  not 
very  high.   The  lease  is  situated  about  four  miles  south  of  the  river. 

Geological  Data:  None. 

Drilling  History:  None. 

Terms:   Mr.  Smith  has  agreed  to  lease  to  the  highest  bidder  if  the  bid  is 
one.  thousand  dollars  or  more.   The  lessee  must  start  drilling  within  one 
year  or  he  must  pay  a  delay  rental  of  one  dollar  per  acre  per  year.   The 
lease  will  terminate  at  the  end  of  five  years  if  no  drilling  has  been  done 
or  when  it  is  mutually  agreed  that  production  of  oil  and /or  gas  is  not,  or 
is  no  longer  economical. 
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Lease  Number  2°  Acreage  2100 

Cartley's  Land  Tract  Lease 

Area  Description:   This  tract  of  land  is  in  the  heart  of  the  Kentucky  Blue 
Grass  country  and  is  presently  used  to  pasture  race  horses.  The  land  was 
leased  19  months  ago  and  the  lessee  had  geological  studies  made  but  the 
lease  was  never  proven.   The  lessee  is  now  attempting  to  sell  the  lease 
for  he  is  retiring  from  the  oil  business. 

Geological  Data:   From  the  studies  made  recently  on  this  lease,  it  was 
determined  that  at  least  one  definite  unconformity  existed  under  the 
western  section  of  the  lease  which  ended  at  a  large  fault.   The  depth 
of  the  cap  rock  appeared  to  be  about  1500  feet  below  the  surface. 
Several  layers  of  porous  rock  were  detected  under  the  cap  rock  that  have 
definite  possibilities  of  being  productive. 

Drilling  History:   No  drilling  has  been  done  on  this  lease  or  adjacent 
leases. 

Terms:  The  present  lessee  is  asking  for  a  minimum  bid  of  two  dollars  and 
fifty  cents  an  acre  plus  the  cost  of  the  geological  studies  which  was 
two  thousand  dollars.  Drilling  must  commence  within  one  year  or  lessee 
will  pay  the  land  owner  one  dollar  per  acre  per  year  as  a  delay  rental 
charge.  The  oresent  lessee  will  reimburse  the  land  owner  for  the  year's 
delay  rental  that  the  new  lessee  has  to  drill.   The  lease  will  be  terminatec 
at  the  end  of  five  years  or  in  the  event  that  it  is  mutually  agreed  that 
production  of  oil  and/or  gas  is  not,  or  is  no  longer  economical. 


Lease  Number   2?  Acreage  7000 

Red  Desert  Lease 

Area  Description:   This  piece  of  land  is  sandy  and  dry  and  flat  as  far  as 
the  eye  can  see.  It  is  uninhabited  except  for  a  few  clusters  of  houses  on 
the  northwestern  edge.   Because  of  the  climate  and  the  land  conditions,  the 
area  has  not  been  developed  and  is  considered  a  x^asteland. 

Geological  Data:   None. 

Drilling  History:   This  land  has  not  been  drilled  on  as  this  is  the  first 
time  it  has  been  available  for  leasing.  A  dry  hole  was  drilled  about  two 
years  ago  some  ten  miles  south  of  this  lease  which  is  the  only  record  of 
drilling  in  this  area. 

Terms:  The  owners  will  lease  this  land  to  the  highest  bidder  for  a  minimum 
of  three  thousand  dollars  bonus.   Drilling  must  start  within  a  year  or  the 
lessee  will  pay  the  lessor  a  delay  rental  payment  of  one  dollar  per  acre 
per  year  until  drilling  does  start.  The  lease  will  terminate  at  the  end  of 
five  years  or  when  it  is  mutually  agreed  that  the  production  of  oil  and/or 
gas  is  not,  or  is  no  longer  economical. 
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Lease  Number  28  Acreage  2111 


• 


Pa3t  Lease   Production  Time:      l  Month 

Producing  Formation:  Bowers  Sand 

Average   Producing  Depth:  2100.  ft. 

Oil  Wells: 

Currently  being  produced: 

Flowing:  1. 

Pumping :  0. 

Gas  Lift:  0. 
"Wells  that  have  produced  oil: 

Shut  in:  0. 

Plugged  and  abandoned:  0. 

Converted  to  gas  wells:  Q. 


Gas  V,rells: 
Producing: 
Shut  in : 

0. 
0. 

Dry  and  abandoned: 
Total  wells  drilled: 

0. 

1. 

Production  to  date: 
Oil  Production: 
Water  Production: 

1000. 
0. 

o 


Gas   Production:  •, 

Gas  produced  from  oil:  200. 

Dry  Gas:  0, 

Total  gas  produced:  200. 

Reservoir  Data: 

Initial  reservoir  pressure:  1918. 

Present  estimated  reservoir  pressure:  1913. 

Saturation  pressure:  2^00. 

Oil  A.P.I,  gravity:  32 f 

Sulphur  percentage:  1. 

Royalty  Interest: 

Owner:  12.52 

Other:  0.0 

Undepreciated  tangible  assets   on  lease:     $5h, 000. (estimated) 

Estimated  Reserves:  600,000. 

Minimum  Bid:  $900,000. 


130 


Lease  Number     ^9 


Acreage     2777 


Past  Lease   Production  Time:     3  Months 


Producing  Formation:        Grayt 

>urg 

Average  Producing  Depth:     ulOO 

ft. 

Oil  Wells: 

Currently  being  produced: 

Flowing: 

2. 

Pumping : 

0. 

Gas  Lift: 

o.  ..  : 

Wells  that  have  produced  oil: 

Shut  in: 

0. 

Plugged  and  abandoned: 

■  0. 

Converted  to  gas  wells: 

0. 

Gats  Weils: 

Producing: 

•  o. 

Shut  in: 

0. 

Dry  and  abandoned: 

0.. 

Total  wells  drilled: 

2. 

Production  to  date : 

Oil  Production: 

6000. 

Water  Production: 

110. 

Gas  Production: 

Gas  produced  from  oil: 

750.  (MSCF) 

Dry  Gas: 

0. 

Total  gas  produced: 

750. 

Reservoir  Data: 

Initial  reservoir  pressure: 

Present  estimated  reservoir  pressure: 

Saturation  pressure: 
Oil  A.P.I,  gravity: 
Sulphur  percentage: 

Royalty  Interest: 
Owner: 
Other: 

Undepreciated  tangible  assets   on  lease: 

Estimated  Reserves: 

Sdinimum  Bid: 


2018. 
1920. 

2100. 

37* 
1.0 


L2.5£ 
0.0 


$100,000. 

800,000. 

$750,000". 
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Lease  Number     30 


Acreage     1000 


Past  Lease   Production  Time:      2  months 

Producing  Formation:  '^ueen 

Average   Producing  Depth:  38OO  ft. 

Oil  Wells : 

Currently  being  produced: 

Fleming:  9. 

Pumping:  0.    . 

Gas   Lift:  0. 

Wells   that  have  produced  oils 

Shut  in:  0, 

Plugged  and  abandoned:     "  0. 

Converted  to  gas  wells:  0. 


Gass  Wells: 
Producing: 
Shut  in: 

Dry  and  abandoned: 
Total  we  lis  drilled: 


0. 
0. 

G. 
9. 


Production  to  date : 

Oil  Production:         7500. 
Water  Production:  0. 

Gas  Production : 

Gas  produced  from  oil:  5163.  (liSCF) 

Dry  Gas: 

Total  gas  produced:    516$  • 

Reservoir  Data: 

Initial  reservoir  pressure:  3580. 

Present  estimated  reservoir  pressure:  3500. 

Saturation  pressure :  3500. 

Oil  A.P.I,  gravity:  1*0° 

Sulphur  percentage:  »h 

Royalty  Interest: 

Owner :  12 • 5$ 

Other:  0.0 

Undepreciated  tangible  assets  on  lease:  £360,000. 

Estimated  Reserves:  300,000. 

Minimum  Bid:  $600,000. 
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Lease  Number     31 


Past  Lease   Production  Time: 

Producing  Formation: 
Average   Producing  Depth: 


Oil  Wells : 

Currently  being  produced: 

Flowing: 

Pumping : 

Gas  Lift: 
"Wells  that  have  produced  oil: 

Shut  in: 

Plugged  and  abandoned: 

Converted  to  gas  wells: 


Gas  '.Veils : 
Producing: 
Shut  in: 

Dry  and  abandoned: 
Total  wells  drilled: 


'    .  I 


Acreage 

1933 

2  Months 

Seven  Pavers 
33£0  ft. 

!  1  . 

1. 
0. 
0.     ; 

- 

l1: 

i 

0. 
0. 
0. 

0. 
0. 

0. 

1. 

Production  to  date: 
Oil  Production: 
Water  Production: 
Gas  Production : 

Gas  produced  from  oil: 

Dry  Gas: 

Total  gas  produced: 

Reservoir  Data: 

Initial  reservoir  pressure: 

Present  estimated  reservoir  pressure: 

Saturation  pressure : 
Oil  A.P.I,  gravity: 
Sulphur  percentage: 

Royalty  Interest: 
Owner: 
Other: 

Undepreciated  tangible  assets   on  lease: 

Estimated  Reserves: 

Minimum  Bid: 


1500. 
0. 

300. 

0. 

300. 


2100. 

2060. 
2300. 

35° 
0. 


12.52 
0.0 

1,500,000. 
$900,000. 


(H3CF) 
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Lease  Number  32  Acreage  3100 

Santon's  Farm  Lease 

Area  Description:   This  farmland  was  leased  approximately  seven  years 
ago  to  the  Accidental  Drilling  Company.   Accidental  had  a  five  year 
lease  and  decided  to  abandon  the  property  about  the  time  it  would  have 
expired.  Their  equipment  was  in  poor  repair  and  they  did  not  feel  it 
was  economical  to  renew  or  reoair  it.  This  land  has  been  used  as  grazing 
land  for  the  last  two  years. 

Geological  Data:   Drilling  was  originally  started  based  on  seismic  readings 
that  detected  several  faults.  The  leasing  company  drilled  2552  feet  to 
these  faults.  The  wells  initially  flowed  about  200  barrels  per  day  with 
about  fifteen  per  cent  water.  Since  the  lease  was  abandoned,  new  seismic 
readings  taken  on  deeoer  formations  indicate  a  possible  dome  structure  at 
a  depth  of  about  6100  feet. 

Drilling  History:   There  were  nine  wells  on  the  lease.  All  of  them  were 
abandoned  and  filled  in.  The  wells  were  producing  about  five  barrels  a 
day  by  pumping  with  no  increase  in  the  percentage  of  water.  None  of  the 
wells  exceeded  3500  feet  deep.   There  was  no  secondary  recovery  attempted 
on  this  reservoir.   The  wells  were  not  acid  treated  or  fractured. 

Terms:  Mr.  Santon  will  consider  offers  of  five  thousand  dollars  or  more  as 
a  bonus  to  lease.   Drilling  will  commence  within  one  year  or  a  delay  rental 
payment  of  one  dollar  per  acre  per  year  will  be  paid  to  the  lessor.   The 
lease  will  terminate  at  the  end  of  five  years  or  in  the  event  that  it  is 
mutually  agreed  that  the  production  of  oil  and 'or  gas  is  not,  or  no  longer 
economical. 


Lease  Number   13  Acreage  1010 

Lake  Watusi  Lease 

Area  Description:   The  lease  is  located  on  the  shores  of  beautiful  Lake 
Watusi.  The  terrain  is  slightly  hilly  and  about  twenty- five  per  cent 
wooded.  This  lease  is  part  of  a  large  dairy  farm  and  most  of  the  land 
in  the  lease  is  used  as  pasture. 

Geological  Data:   There  are  no  prospective  formations  evident  from  the 
appearence  on  the  surface  and  no  other  geological  data  is  available. 

Drilling  History:  None  for  this  area. 

Terms:  This  lease  is  available  for  a  minimum  bonus  of  two  thousand  dollars 
and  all  bids  will  be  considered.   Drilling  is  to  be  started  within  one  year 
or  the  leasing  company  will  pay  the  owner  a  delay  rental  of  one  dollar  per 
acre  per  year  until  drilling  is  started.   The  lease  will  terminate  at  the 
end  of  five  years  or  when  it  is  mutually  agreed  that  it  it  not,  or  is  no 
longer  economical  to  produce  oil  and /or  gas. 
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Lease  Number     3|j 


Acreage    £231 


Past  Lease   Production  Time:     3  months 

Producing  Formation:  Queeri 

Average   Producing  Depth:  3000  ft. 

Oil  Wells : 

Currently  being  produced: 

Flowing:  7» 

Pumping:  0- 

Gas  Lift:  0. 
Wells  that  have  produced  oil: 
Shut  in: 

Plugged  and  abandoned:  0. 

Converted  to  gas  wells:  0. 


Gas  '.Veils: 
Producing: 
Shut  in: 

Dry  and  abandoned: 
Total  wells  drilled: 

Production  to  date : 
Oil  Production: 
Water  Production: 
Gas  Production: 

Gas  produced  from  oil: 

Dry  Gas: 

Total  gas  produced: 


fteservoir  Data: 

Initial  reservoir  pressure: 

Present  estimated  reservoir  pressure: 

Saturation  pressure: 
Oil  A.P.I,  gravity: 
Sulphur  percentage: 

Royalty  Interest: 
Owner: 
Other: 

Undepreciated  tangible  assets   on  lease: 

Estimated  Reserves: 

Minimum  Bid: 


0. 

0. 

0. 
7. 

• 

10,500. 
110. 

8169.   (MSCF) 

BU69. 

ressure : 

3hl0.  PS I 
33U1. 
3520. 
38° 
1.07 

12.5* 

0.0 

lease: 

5.100,000. 

• 

Loo, 000. 

$1,000,000. 
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■Lease  Number     35 


Acreage     1950 


Past  Lease   Production  Time:       10.   Months 


Producing  Formation: 
Average   Producing  Depth: 


Ellenburger   (lime) 

7900.  ft. 


Oil  Wells: 

Currently  being  produced: 
Flowing: 
Pumping: 
Gas   Lift: 
"Wells   that  have  produced  oil: 
Shut  in: 

Plugged  and  abandoned: 
Converted  to  gas  wells: 

Gas  Wells: 
Producing: 
Shut  in: 

Dry  and  abandoned: 
Total  wells  drilled: 

Production  to  date : 
Oil  Production: 
Water  .Production: 
Gas   Production: 

Gas  produced  from  oil: 

Dry  Gas: 

Total  gas  produced: 


Reservoir  Data: 

Initial  reservoir  pressure: 

Present  estimated  reservoir  pressure: 

Saturation  pressure: 
Oil  A.P.I,  gravity: 
Sulphur  percentage: 

Royalty  Interest: 
Owner: 
Other: 

Undepreciated  tangible  assets  on  lease: 

Estimated  Reserves: 

Minimum  Bid: 


17. 

0. 
0. 

0. 

0. 

• 

0. 

0. 

0. 
17. 

136,500. 
0. 

120,713. 

(MSCF) 

120,713. 

ressure: 

'*  3500. 
3355. 
.  3110. 
12° 
0. 

12.52 
0.0 

lease: 

$360,000. 

590,000. 

S95L,ooo. 
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Lease  Number     3& 


Acreage  5501 


Past  Lease   Production  Time: 


3     Months 


Producing  Formation: 

Seven 

Rivers 

Average   Producing  Depth: 

3200  ft. 

Oil  Wells : 

Currently  being  produced: 

Flowing: 

9. 

Pumping : 

0. 

Gas   Lift: 

0. 

Wells   that  have  produced  o 

Ill 

Shut  in: 

0. 

Plugged  and  abandoned: 

0. 

Converted  to  gas  wells 

i      0. 

Gas  Wells: 

Producing: 

0. 

Shut  in: 

■   0. 

Dry  and  abandoned: 
Total  wells  drilled: 

Production  to  date: 
Oil  Production: 
Water  Production: 
Gas   Production: 

Gas  produced  from  oil: 

Dry  Gas: 

Total  gas  produced: 


Reservoir  Data: 

Initial  reservoir  pressure: 

Present  estimated  reservoir  pressure: 

Saturation  pressure: 
Oil  A.P.I,  gravity: 
Sulphur  percentage: 

Royalty  Interest: 
Owner: 
Other: 

Undepreciated  tangible  assets  on  leases 

Estimated  Reserves: 
Minimum  Bid: 


0. 

9. 

-  • 

7500. 
75. 

2381.    (JSCF) 

2331. 

ressure: 

2011. 
2000.     . 
2000. 
12° 

0.    '-" 

12.52 
0.0 

lease : 

not  available 

•■ 

1,000,000. 

$2,000,000. 
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Lease  Number  37  Acreage  1237 


Past  Lease  Production  Time:  3  Months 

Producing  Formation:       Seven  Rivers 
Average  Producing  Depth:    3050  ft. 

Oil  Wells: 

Currently  being  produced: 

Flowing:  5. 

Pumping:  •  0. 

Gas   Lift:  0o 

Wells   that  have  produced  oil: 

Shut  in:  0» 

Plugged  and  abandoned:  0V 

Converted  to  gas  wells:  0. 

Gas  '.Veils:  ,;:,. 

Producing: 
Shut  in: 

Dry  and  abandoned: 
Total  vrells  drilled: 

Production  to  date : 
Oil  Production: 
Water  Production: 
Gas   Production: 

Gas  produced  from  oil: 

Dry  Gas: 

Total  gas  produced: 

Reservoir  Data: 

Initial  reservoir  pressure: 

Present  estimated  reservoir  pressure: 

Saturation  pressure : 
Oil  A.P.I,  gravity: 
Sulphur  percentage: 

Royalty  Interest: 
Owner: 
Other: 

Undepreciated  tangible  assets  on  lease: 

Estimated  Reserves: 

Hinimum  Bid: 


0. 
0o 

0 

•- . 
7. 

.  7500. 
6oo. 

.  5577. 

■  '  5577. 

ressure: 

1327.  • 

1210. 

'  ihoo. 
.09 

12 . 5% 

0.0 

lease: 

not  available 

200,000. 

§1*00,000. 
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Lease  Number     35 


Acreage      790 


Past  Lease   Production  Time:       9  Months 


Producing  Formation: 
Average   Producing  Depth: 


Bartlesville  Sanis 
2^00  ft. 


Oil  Wells: 

Currently  being  produced: 

Flowing:  6. 

Pumping:  0. 

Gas   Lift:  0. 
"Wells   that  have  produced  oil: 

Shut  in:  0. 

Plugged  and  abandoned:  0. 

Converted  to  gas  wells:  0. 


Gas  Wells: 
Producing: 
Shut  in: 

Dry  and  abandoned: 
Total  wells  drilled: 

Production  to  date: 
Oil  Production: 
Water  Production: 
Gas   Production : 

Gas  produced  from  oil: 

Dry  Gas : 

Total  gas   produced: 


Reservoir  Data: 

Initial  reservoir  pressure: 

Present  estimated  reservoir  pressure: 

Saturation  pressure: 
Oil  A.P.I,  gravity: 
Sulphur  percentage: 

Royalty  Interest: 
Owner: 
Other: 


0. 
0. 

1. 

7. 

55,000. 
5,500. 

16,000.    (KSCF) 

'.     Li.6,000.    (LSCF) 

jressure  i 

D.;05.    PSI 
s                 1115. 
2000. 

33° 

0. 

12.5* 

0.0 


Undepreciated  tangible  assets   on  lease:     not  available. 
Estimated  Reserves:  210,000. 

Minimum  Bid:  $300,000. 
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Lease  Number     39 


Acreage     3500 


Past  Lease   Production  Time:        I;  years 


Producing  Formation: 
Average   Producing  Depth: 


Que en (sand) 
2755  ft.    . 


Oil  Wells : 

Currently  being  produced: 

Flowing:  0. 

Pumping:  5. 

Gas   Lift:  0. 

Wells   that  have  produced  oil: 

Shut  ins  0, 

Plugged  and  abandoned:                      0. 

Converted  to  gas  wells:  0. 

Gas  Wells: 

Producing:  0. 

Shut  in:  0. 

Dry  and  abandoned:  3» 

Total  wells  drilled:  8. 

Production  to  date: 
Oil  Production: 
Water  Production: 
Gas  Production : 

Gas  produced  from  oil: 

Dry  Gas: 

Total  gas  produced: 

Reservoir  Data: 

Initial  reservoir  pressure: 

Present  estimated -reservoir  pressure: 

Saturation  pressure: 

Oil  A.P.I,  gravity: 

Sulphur  percentage: 

Royalty  Interest: 
Owner: 
Other: 

Undepreciated  tangible  assets, on  lease: 

Estimated  Reserves: 

Minimum  Bid:  ,. 


91,000. 
10,000. 

263, hOO.    (MSCF) 

263,1x00. 


3500. 

500. 

3000. 

.1 


12.53 
0.0 

none 

50,000. 

$100,000. 


>  i  / 


lliO 


Lease  Number     ^0 


Acreage     2  31? 


Past  Lease   Production  Time:      6  Months 


Producing  Formation: 
Average   Producing  Depth: 


Grayburg   (Permain) 
2500  ft. 


Oil  Wells: 

Currently  being  produced: 

Flowing: 

Pumping : 

Gas  Lift: 
Wells  that  have  produced  oil: 

Shut  in: 

Plugged  and  abandoned: 

Converted  to  gas  wells: 

Gas  ffells: 

Producing: 
Shut  in: 

Dry  and  abandoned: 
Total  wells  drilled: 

Production  to  date: 
Oil  Production: 
Water  Production: 
Gas  Production: 

Gas  produced  from  oil: 

Dry  Gas: 

Total  gas  produced: 

Reservoir  Data: 

Initial  reservoir  pressure: 

Present  estimated  reservoir  pressure: 

Saturation  pressure: 
Oil  A.P.I,  gravity: 
Sulphur  percentage: 

Royalty  Interest: 
Owner: 
Other: 

Undepreciated  tangible  assets , on  lease: 

Estimated  Reserves: 

Minimum  3id:  ;  ■ 


7. 
0. 
0. 

1. 

0. 
0. 

'-_   - 

0. 

0. 

0. 
8. 

10,500. 

0. 

8,51i7. 
0. 

3,517. 

• 
• 

1500. 

mo?. 

1590. 
.        36° 
0.9 

12.5* 

0.0 

$80,000. 

350,000. 

$1,320,000. 

(MSCF) 


<  re 
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Lease  Number       '^  Acreage     2o66 


fast  Lease   Production  Time:  12  Months 

Producing  Formation:  San  Andres 

Average   Producing  Depth:  27^0  ft. 

Oil  Wells: 

Currently  being  produced: 

Flowing:  Hu 

Pumping:  0. 

Gas   Lift:  0. 

Wells   that  have  produced  oil: 

Shut  in:  0. 

Plugged  and  abandoned:                        2., 

Converted  to  gas  wells:  0. 

Gats  Wells: 

Producing:  ■      0. 

Shut  in:  0. 

Dry  and  abandoned:  q# 

Total  wells  drilled:  \€m 

Production  to  date : 

Oil  Production:  .130,000. 

Water  Production:  none 

Gas   Production:  .    , 

Gas  produced  from  oil:  93,000.     (MSCF) 

Dry  Gas:  0. 

Total  gas  produced:  93,000. 

Reservoir  Data: 

Initial  reservoir  pressure:  1350. 

Present  estimated  reservoir  pressure:  lO^O. 

Saturation  pressure:  1300. 

Oil  A.P.I,  gravity:  230 

Sulphur  percentage:  .9 


Royalty  Interest: 

Owner:  12.  ££ 

Other:  0.0 

Undepreciated  tangible  assets   on  lease:  $300,000. 

Estimated  Reserves:  900,000. 

iOnimum  Bid:  $1,100,000. 


Iii2 


Lease  Number     ^2  Acreage    1290 

•>■ 
Past  Lease   Production  Time:       7  years 

Producing  Formation:  Yates 

Average   Producing  Depth:  135>0  ft. 

Oil  Wells: 

Currently  being  produced: 

Flowing:  0. 
Pumping:               ■  .   13. 

Gas  Lift:  0. 
Wells  that  have  produced  oil: 

Shut  in:  •  0. 

Plugged  and  abandoned:  0o 

Converted  to  gas  wells:  0. 

Gas  Wells: 

Producing:  ■    0. 

Shut  in:  0. 

Dry  and  abandoned:  I4. 

Total  wells  drilled:        .        17. 

Production  to  date : 

Oil  Production:  .  7h3,21C. 

Water  Production:  1,6?7,0C0.   (produced  less  injected) 

Gas  Production: 

Gas  produced  from  oil:             2,113,000.   (MSCF) 

Dry  Gas:  0. 

Total  gas   produced:  .    2,113,000. 

Reservoir  Data: 

Initial  reservoir  pressure:  175>0. 

Present  estimated  reservoir  pressures  350. 

Saturation  pressure  a  1600. 

Oil  A.P.I,  gravity:  23 

Sulphur  percentage:  0 

Royalty  Interest: 


o 


Owner:  12.  & 


Sf 

Other:  0.0 


Undepreciated  tangible  assets   on  lease:  $200,000. 

Estimated  Reserves:  k50,000. 

Minimum  Bid:  $S>00,000. 
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Leases  Number    jjj  Acreage     Igll 


Fast  Lease   Production  Time:     2  Months 

Producing  Formation:  Simpson 

Average   Producing  Depth:  ItlOO.  ft. 

Oil  Wells: 

Currently  being  produced: 

Flowing:  1. 

Pumping:  0. 

Gas   Lift:  0. 
Wells   that  have  produced  oil: 

Shut  in:  0. 

Plugged  and  abandoned:  0. 

Converted  to  gas  wells:  0. 

Gas  Wells: 

Producing:  •  0» 

Shut  in:  «.  .      0. 

Dry  and  abandoned:  0* 

Total  wells  drilled:  . -  !• 

Production  to  date : 

Oil  Production:  #        1500,  . 

Water  Production:  -78 . 

Gas  Production: 

Gas  produced  from  oil:               600.  (MSCFJ 

Dry  Gas:  °» 

Total  gas  produced:  ^00. 

Reservoir  Data: 

Initial  reservoir  pressure:  3h.93»     ?§I 

Present  estimated  reservoir  pressure:      31:20. 
Saturation  pressure :  3U00, 

Oil  A.P.I,  gravity:  3h° 

Sulphur  percentage:  0.' 


Royalty  Interest: 

Owner:  12.  #£ 

Other:  0.0 

Undepreciated  tangible  assets  on  lease:     t-?0,0Q0. 

Estimated  Reserves:  7^0,000. 

Minimum  3id:  $$00,000. 


aUUU 

Lease  Number  hh  Acreage  2850 

Bar-B-Q  Ranch  Lease 

Area  Description:   This  area  is  rolling  grasslands  in  southern  ".vyoming, 
spotted  with  rock  crests  that  break  abruptly  into  more  grasslands.   It 
is  presently  used  to  pasture  sheep. 

Geological  Data:   The  adjoining  ranch  was  leased  about  three  years  ago 
and  has  been  developed  and  turned  out  to  be  very  productive.   Seismic 
work  has  been  done  on  the  area  of  this  lease  next  to  the  producing  lease 
and  indications  are  that  a  fairly  large  anticline  exists  under  this  lease. 
The  top  of  the  oorous  layer  that  may  be  productive  lies  about  1700  feet 
beneath  the  surface. 

Drilling  History:  No  wells  have  been  drilled  on  this  lease.   The  fifteen 
wells  on  the  adjoining  lease  are  presently  averaging  about  82  barrels  a 
day  flowing  from  a  depth  of  2200  feet. 

Terms:   The  owner  will  accept  bids  for  consideration  of  five  dollars  per 
acre  plus  reimbursement  of  the  fee  he  oaid  for  the  geological  studies 
which  was  two  thousand  five  hundred  dollars.  Drilling  must  begin  within 
one  year  or  the  lessee  will  pay  the  lessor  a  delay  rental  payment  of  one 
dollar  per  acre  per  year  until  drilling  has  started.   The  lease  will 
terminate  at  the  end  of  five  years  or  when  it  determined  that  it  is  not 
or  is  no  longer  economical  to  oroduce  oil  and/or  gas. 


Lease  Number   It 5  Acreage   996 

Carolina  Coastland  Lease 

Area  Description:   This  lease  is  located  in  Eastern  North  Carolina  where 
the  terrain  is  flat  and  sandy.   This  is  an  area  in  which  new  interest  in 
exoloration  has  recently  sprung  up,  and  many  oil  people  are  very  enthu- 
siastic about  its  future  in  oil  production. 

Geological  Data:   Magnetic  surveys  have  been  recently  made  of  this  area 

and  they  indicated  that  the  sedimentary  basin  was  favorable.   No  prospective 

formations  could  be  detected. 

Drilling  History:   This  is  a  new  area  of  drilling  interest  but  none  has  been 
done  so  far. 

Terms:   The  owner  will  consider  bids  of  one  thousand  dollars  or  more  as  a 
bonus  for  leasing  this  land.  Drilling  must  commence  within  one  year  or  a 
delay  rental  must  be  paid  to  the  lessor  of  one  dollar  per  acre  per  year. 
The  lease  will  be  terminated  within  five  years  or  when  it  is  determined 
that  production  of  oil  and/or  gas  is  not,  or  is  no  longer  economical. 
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Lease  Number       h6 


Past  Lease   Production  Time: 

Producing  Formation: 
Average   Producing  Depth: 

Oil  Wells: 

Currently  being  produced: 

Flowing: 

Pumping : 

Gas    Lift: 
Wells   that  have  produced  oil 

Shut  in: 

Plugged  and  abandoned: 

Converted  to  gas  wells: 

Gas  Wells: 

Producing: 
Shut  in: 

Dry  and  abandoned: 
Total  wells  drilled: 

Production  to  date: 
Oil  Production: 
Water  Production: 
Gas  Production: 

Gas  produced  from  oil: 

Dry  Gas: 

Total  gas   produced: 


Reservoir  Data: 

Initial  reservoir  pressure: 

Present  estimated  reservoir  pressure: 

Saturation  pressure: 
Oil  A.P.I,  gravity: 
Sulphur  percentage: 

Royalty  Interest: 
Owner: 
Other: 

Undepreciated  tangible  assets   on  lease: 

Estimated  Reserves: 

Hi n iiium  3 id: 


Acreage     19°9 

2  Months 

Silurian 
7200  ft. 

1. 
0. 
0. 

• 

• 

0. 

•     0. 
0. 

•  o. 

0. 

0. 

1. 

1500. 

300. 

350. 

0. 

350. 

(IvSCF) 

pressure: 

3223. 

3200. 

3300. 

,    13.6° 

.69      , 

12. 5£ 
0.0 

n  lease: 

Not  available. 

• 

1,000,000. 

$633,000. 
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Lease  Number     h7  Acreage  2301 


Past  Lease   Production  Time:  3  Months 

Producing  Formation :  Ellenburger 

Average   Producing  Depth:  3000.   ft. 

Oil  Wells : 

Currently  being  produced: 

Flowing:  9. 

Pumping:  0. 

Gas   Lift:  0. 
Wells   that  have  produced  oil: 

Shut  in:  0. 
Plugged  and  abandoned:                   •    0. 

Converted  to  gas  wells:  0. 

Gajs  Wells: 

Producing:  •  CO. 

Shut  in:  0. 

Dry  and  abandoned:  0. 

Total  wells  drilled:  9* 

Production  to  date: 

Oil  Production:  12,000. 

Water  Productions  60. 

Gas  Production: 

Gas  produced  from  oil:                6100.  (MSCF) 

Dry  Gas:  0. 

Total  gas  produced:  6100. 

Reservoir  Data: 

Initial  reservoir  pressure:  3^33* 

Present  estimated  reservoir  pressure:  3330. 

Saturation  pressure:  3300. 

Oil  A.P.I,  gravity:  39° 

Sulphur  percentage:  »ll 


Owner:  12.5>i* 


Royalty  Interest: 
Owner: 
Other:  0.0 

Undepreciated  tangible  assets  on  lease:        Not  available. 

Estimated  Reserves:  300,000. 

Minimum  Bid:  $200,000. 


/ 1 
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Lease   Number    13  Acreage     2??6 


Fast  Lease   Production  Time:        1  Tear 

Producing  Formation:  Ellonburger 

Average   Producing  Depth:  5000  ft. 

Oil  Wells : 

Currently  being  produced: 

Flowing:  16 • 

Pumping:  0. 

Gas  Lift:  0.  : 

Wells  that  have  produced  oil: 

Shut  in:  0. 

Plugged  and  abandoned:          0. 

Converted  to  gas  wells:  0. 

Gats  '.Yells : 

Producing: 

Shut  in:  °» 

0. 

Dry  and  abandoned:  0. 

Total  wells  drilled:  16. 

Production  to  date : 

Oil  Production:  1-50,000. 

Water  Production:  300. 

Gas  Production: 

Gas  produced  from  oil:  101,000.  (KSCF) 
Dry  Gas:  0. 

Total  gas  produced:  101,000. 

Reservoir  Data: 

Initial  reservoir  pressure:  a2h7. 

Present  estimated  reservoir  pressure:  3900. 

Saturation  pressure :  u200. 

Oil  A.P.I,  gravity:  kl.l 

Sulphur  percentage:              »  »0 


o 


Royalty  Interest: 

Owner:  12.5^ 

Other:  ■  0.0 

Undepreciated  tangible  assets  on  lease:      no^  available. 

Estimated  Reserves:  1,000,000. 

Minimum  Bid:  Si, 000, 000. 
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Lease  Number  ^9  Acreage  2208 


Louisiana  Marshlands  Lease 

Area  Description:   This  land  is  entirely  marshland  and  all  of  it  is  at 
least  partially  submerged.   An  oil  slick  or  film  is  frequently  found  in 
some  sections  of  the  lease  on  the  surface  of  the  water.   Recently  the 
scum  was  analyzed  and  determined  to  be  crude  oil.  It  is  assumed  that 
the  oil  exudes  from  the  ground  as  the  marsh  is  not  navigable  and  is  not 
directly  connected  to  the  Gulf  where  ships  might  well  be  accountable  for 
the  oil.  Also  there  are  no   producing  oil  fields  in  the  area. 

Geological  Data:   None. 

Drilling  History:  This  lease  was  drilled  in  the  early  1930' s,  however, 
the  adverse  working  conditions  and  the  depression  forced  the  company  to 
abandon  the  lease.  A  short  time  later  the  company  went  out  of  business 
and  the  records  of  the  drilling  cannot  be  located. 

Terms:   The  state  owns  the  land  and  is  prepared  to  accept  a  minimum  bid 
of  seven  thousand  dollars,  but  it  will  lease  to  the  highest  bidder. 
Drilling  must  start  within  one  year  or  the  lessee  will  pay  the  state 
a  delay  rental  of  one  dollar  per  acre  per  year  until  the  time  when  dril- 
ling is  started.   The  lease  T/ri_ll  be  terminated  at  the  end  of  five  years 
or  when  it  is  mutually  agreed  that  the  production  of  oil  and/or  gas  is 
not,  or  is  no  longer  economical. 


Lease  Number  $0  Acreage  10,000 

Chief  Rainbow  Lease 

Area  Description:   The  land  in  this  lease  is  open  range  grassland  used  for 
grazing  the  cattle  of  the  Indians.   Rocks  protrude  in  an  irregular  fashion 
and  there  are  a  few  trees  in  some  of  the  valleys.   This  land  is  part  of  the 
Pomocoky  Indian  Reservation. 

Geological  Data:   There  are  thought  to  be  two  favorable  sedimentary  layers 
in  the  area  of  this  lease,  but  this  has  not  been  tested. 

Drilling  History:   There  has  been  no  drilling  on  this  lease  or  in  the 
vicinity  of  it. 

Terms:  The  Council  of  Chiefs  of  the  Pomocokys  will  accept  a  minimum  bonus 
of  twelve  thousand  dollars  to  lease  but  will  lease  to  the  highest  bidder. 
Drilling  must  begin  within  one  year  or  the  lessee  will  pay  a  delay  rental 
of  one  dollar  per  acre  per  year.   The  lease  will  terminate  at  the  end  of 
five  years  or  when  it  is  mutually  determined  that  production  of  oil  and /or 
gas  is  not,  or  is  no  longer  economical. 
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Lease  Number     5>1  Acreage     5700 


Past  Lease   Production  Time:   6  Months 

Producing  Formation:  Bartlesville  Sand 

Average   Producing  Depth:         2200  ft. 

Oil  Wells: 

Currently  being  produced: 

Flowing:  3. 

Pumping:  0. 

Gas  Lift:  0. 
Wells  that  have  produced  oil: 

Shut  in:  0. 

Plugged  and  abandoned:  0. 

Converted  to  gas  wells:  0. 

Gajs  '.Veils : 

Producing:  •    0. 

Shut  in:  0. 

Dry  and  abandoned:  0.   • 

Total  wells  drilled:  3* 

Production  to  date : 

Oil  Production:  27,000. 

Water  Production:  Ix^O. 

Gas   Production:  5,h00.      (MSCF) 

Gas  produced  from  oil:  5,u00.    • 

Dry  Gas :  0« 

Total  gas  produced:  £,U00. 

Reservoir  Data: 

Initial  reservoir  pressure:  iq2* 

Present  estimated  reservoir  pressure:  2uo5. 

Saturation  pressure:  2U00. 

Oil  A.P.I,  gravity:  35° 

Sulphur  percentage:  0* 

Royalty  Interest: 

Owner:  -»*•?* 

Other:  °«° 

Undepreciated  tangible  assets   on  lease: 

Estimated  Reserves:  k, 000,000. 

Llinimum  Bid:  $2, £00, 000. 
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Lease  Number     5>2  Acreage  6?Q 


Past  Lease   Production  Time:        5  Years 

Producing  Formation:  .       Yates 

Average   Producing  Depth:  UlOO.   ft. 

Oil  Wells  : 

Currently  being  produced: 

Flowing :  2. 

Pumping:  ■  •    0. 

Gas  Lift:  0. 
Wells  that  have  produced  oil: 

Shut  in:  0. 

Plugged  and  abandoned:  0. 

Converted  to  gas  wells:  0. 

Gas  Wells: 

Producing:  •  0. 

Shut  in:  °» 

Dry  and  abandoned:  2. 

Total  wells  drilled:  b* 


Production  to  date :  , 

Oil  Production:  .  10,360. 

Water  Production:  3U5. 

Gas  Production:  f\iorv\ 

Gas  produced  from  oil:  3000«  ^^  > 


Total  gas  produced: 


Dry  Gas:  °« 


3000, 


Reservoir  Data:  .   ■ 

Initial  reservoir  pressure:  l6ll.      PSI 

Present  estimated  reservoir  pressure:  1000. 

Saturation  pressure:  2100. 

Oil  A.P.I,  gravity:  3k° 

Sulphur  percentage:  1.0 

N 

Royalty  Interest: 

Owner:  12. 5# 

Other:  0.0 

Undepreciated  tangible  assets, on  lease:  none 

Estimated  Reserves:  65,000. 

Minimum  3id:  $30,000. 
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Lease  Number      53 


Acreage    12  31 


Past  Lease   Production  Time:     UO  L'onths 


Producing  Formation: 
Average   Producing  Depth: 


Oil  Wells : 

Currently  being  produced: 
Flowing: 
Pumping: 
Gas   Lift: 
Wells  that  have  produced  oil: 
Shut  in: 

Plugged  and  abandoned: 
Converted  to  gas  wells: 

Gajs  Wells: 
Producing: 
Shut  in: 

Dry  and  abandoned: 
Total  wells  drilled: 

Production  to  date : 
Oil  Production: 
Water  Production: 
Gas   Production : 

Gas  produced  from  oil: 

Dry  Gas: 

Total  gas  produced: 

Reservoir  Data: 

Initial  reservoir  pressure: 

Present  estimated  reservoir  pressure: 

Saturation  pressure : 
Oil  A.P.I,  gravity: 
Sulphur  percentage: 

Royalty  Interest: 
Owner: 
Other: 

Undepreciated  tangible  assets   on  lease: 

Estimated  Reserves: 

Minimum  Bid: 


Yates 
3000.  ft. 

>il: 

it 

0. 

5. 

0. 

0. 
0. 
0. 

0. 

0.     ' 

3. 

8. 

295,000. 
280,000. 

310,000. 

0. 

310,000. 

(MSCF-) 

1611. 

1800. 
30° 
0.9 


12.52 
0.0 


300,000. 

$1*00,000. 
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Lease  Number  5u  Acreage  1330 

Jones  Lease 

Area  Description:   The  terrain  of  the  area  is  hilly  and  rocky.   The  southern 
border  of  the  lease  is  formed  by  the  Missouri  River.  A  small  part  of  the 
lease  is  used  to  grow  crops,  but  it  is  mainly  used  for  cattle  grazing. 

Geological  Data:   The  only  geological  data  available  are  aerial  photographs 
taken  by  the  State  Geological  Survey  in  i960.  A  brief  examination  denotes 
an  anticline  structure  may  exist  in  the  area  of  the  lease.  It  appears 
to  be  under  about  two-thirds  of  the  lease  running  east  and  west  parallel 
to  the  river.  More  detailed  studies  are  indicated. 

Drilling  History:  A  well  was  drilled  to  about  3350  feet  on  an  adjoining 
lease  that  produced  a  show  of  oil  but  mostly  brine.  The  comoany  drilling 
the  well  was  a  small  wildcatter  who  used  very  little  geological  data  to 
support  his  choice  of  the  drilling  sight.   This  well  was  drilled  before  the 
aerial  photographs  were  made  and  it.  is  believed  that  the  well  was  drilled  at 
the  very  edge  of  the  structure.  Well  or  core  data  is  not  available. 

Terms:   The  owner  will  consider  no  less  than  fifty  cents  an  acre  as  a  bonus 
for  the  lease.   Drilling  is  to  commence  within  one  year  or  a  delay  rental 
will  be  paid  by  the  lessee  to  the  lessor  of  one  dollar  per  acre  per  year. 
The  lease  will  be  terminated  at  the  end  of  five  years  or  when  it  is  mutually 
agreed  that  production  of  oil  and/or  gas  is  not,  or  is  no  longer  economical, 


Lease  Number   55  Acreage   530 

Joe  Funk  Lease 

Area  Description:   Level  to  slightly  rolling  land  describes  this  lease 
located  in  west  central  Nebraska.  It  borders  on  a  state  owned  lake. 

Geological  Data:   Although  there  is  no  geological  data  available  at  this 
time,  this  area  is  fast  becoming  a  good  producer  of  oil  and  gas.   Most  of 
the  production  in  the  area  is  from  formations  from  six  to  eight  thousand 
feet  deep. 

Drilling  History:   There  is  no  record  of  drilling  for  oil  on  this  lease. 

Terms:   Mr.  Funk  will  lease  the  land  to  the  highest  bidder  for  not  less  than 
eight  hundred  dollars.  Drilling  should  start  within  one  year  or  lessee  will 
be  liable  to  lessor  for  a  delay  rental  payment  o:  one  dollar  per  acre  per 
year.   The  lease  will  be  terminated  at  the  end  of  five  years  if  no  drilling 
has  been  started  or  at  such  time  that  it  is  mutually  agreed  that  production 
of  oil  and /or  gas  is  not,  or  is  no  longer  economical. 
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Lease  Number       56 


Acreage    6000, 


Past  Lease   Production  Time:     S  Months 


Producing  Formation:  Grayburg 

Average  Producing  Depth:  ItUO  ft. 

Oil  Wells: 

Currently  being  produced: 

Flowing:  3» 

Pumping:  0. 

Gas  Lift:  0. 
Wells  that  have  produced  oil: 

Shut  in:  •  0. 

Plugged  and  abandoned:  0. 

Converted  to  gas  wells:  0. 

Ga-s  Wells: 

Producing:  •    0. 

Shut  in:  0. 

Dry  and  abandoned:  P. 

Total  Trails  drilled:  3* 

Production  to  date: 
Oil  Production: 
Water  Production: 
Gas   Production: 

Gas  produced  from  oil: 

Dry  Gas: 

Total  gas  produced: 

Reservoir  Data: 

Initial  reservoir  pressure: 

Present  estimated  reservoir  pressures 

Saturation  pressure : 

Oil  A.P.I,  gravity: 

Sulphur  percentage: 

Royalty  Interest: 
Owner: 
Other: 

Undepreciated  tangible  assets   on  lease: 

Estimated  Reserves: 

Minimum  3 id: 


180,000. 
1,000. 

120,000.      (L'ISCF) 

0. 
120,000.    • 


1710. 

1675. 
1660. 

3U° 

1.0 


12.5* 

0.0 

1,000,000. 
$750,000. 


APPENDIXES 


APPENDIX  A 
Flow  Charts 
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C 


START 


REAL  INTAN3.INy£ST.IN?H£C.IMT?AY4NETDJC,LZSFACJQUQTg 


T 

DIMENSION  3ID,ACRES, IDENT,LSASE, LESSEE, PAYCAP, PENSEL, 

RVERSN,A3AND,  PEN3VT,  PSNABD,  NWBLLS  ,ABDCO3,0IL?RD,GAS?HD, 

G0REJT,NETINC,GTriINC,S0LD3T,G>iINLT,XL03LT,0PC03T, 

REVNUE,R0YLTY,GR0SS,Ii\TANQ,TANG,BTXNST,DIVDND,XL0S3, 

DE?LET,ACCRE0,DEPREC,DRILCS,S^AGE,IELECT>RESORS,VCFACT, 

DZERC,NELECT,RENE7/,  ?ENDS?,ACCPAY,  INVEST,  CASii,STLOAN, 

EM?3EN,B0NDSJSHARSS,RTEARN,MQU0TE>REQLNS,REQPAY,REQINV, 

OTHLOS,REQBND,EAI©D,OPRSS,NPDATE,FRINGE,PAY,ORCARY,QZERO, 

BttIFE,EQCOST,L^FAC,TIliEiGEOFACJWELNUM,NO,HE5FRC,RSQACD, 

BIDBIH,XDRIIL1ASSETSt?n^TtVISCTriFVFsHECJPMPJXTEM?sREQSEC 

i 

• 

JUMP  «  0 

READ 
PARAMETERS 


XINGTH  =   LENGTH 
TIMFAC  =  XLIiGTH/l2. 
NDEAL  =  0 


I 


DO  I  =  1,NPLAY) 


READ 
CCGUNTIN 

DATA 

Z3Z 


GTHINC(I)  =  0.0 
XLOSLT(I)  =  0.0 
GAINLT(I)  =  0.0 
IDENT(I)  =  0 
PENSEL(I,2)  -0.0 
PENR7T(I,2)  -  0.0 
PENDEP(I  2)   -  0.0 
ABDCCS(IJ  =0.0 
PSNA8D(I,2)  =  0.0 


iSf 
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HEAD  LESSEE, LEASE^NWELLS ,  NPDATE, ilBSORS,  EO.LIFE, 
EQAGE,TANG,INTAMG,IELECT,VCFACT,ACRES>QEOFAC, 
LESFAC,TIME,QZER0,DZ3R0,  N0,BID:/:IU,V,7,LNU1I, 
EQCOST, PINT, VISCTYjFVFjGQRINT 


57A 


WRITE 

(ARAMETEii 


DO  1=  1,NPIAY 


WRITE 

ACCOUNT IN 
DATA 


WRITE  LESSEE,  LShSE, Ni7ELLS,NPDATS, RSSORS , EOXIFE ,; 
EQAGE,TAHG,  INTAMG,  ELECT,  VCFACT, ACRES, G20FAC, 
LESFAC,TIME,QZEEO,  DZERO,KO,  BIDMIN, tfELNUM, 

EQCOST,  PINT, yiSCTY,FVF,GORINT - 


157B 


-KL92A 


157C) 


GASPED  (I).  -  0.0 
REVNUS(I)  =.  0.0 
ROYLTY(l)  =  0.0 
GR0S3(I>=  0.0 
OPCOST(I)  =  0.0 
DEPREC(l)  =  0.0 
DEPLET(I)  =  0.0 
ETXNET(I)  =  0.0 
DHILCS(I)  =0.0 
XLOSS(I)  =  0.0 
OIL?RO(I)  =  0.0 
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(TH- 


READ 

COMPANY 

,  DECISIONS 


WRITS 
COMPANY 

JECISIONSy 


-V|7CFACT(I)   =  VARCOS 


+A60A 


-*4l$9 
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TEMP  =    (CASK(I)   +  ACCREC(I)  -  2.0  *  ACC?AY(I))/2.0  -  STLOAN(l) 


V 


REQLNS(I)  «  TEMP 


1159A 


3TL0Ai\'(l)  =  STLOAN(I)   +  RE;L\T3(l) 
CASH(I)   =   CaSHu)   +  REQLNS(I) 
RSQLNS(I)  =0.0 


I 


n  TEMP  =  XLNQTH/ISi&lSR 


>     TEMP  =1.0 


CaSH(I)  =  CASH(I)  +  ACCREC(I)  -*  TEMP 
ACCRFXU)  =  ACCR~C(l)  *  (1.0  -  TEii?) 
TEMP  «  XLNGTH/TSEiSP 


TELP  »  1.0 
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CASH(I)  =  CASH(I)  -  ACCPAY(l)  *  T3JP 
ACCPAY(I)  =  ACCPAY(I)  *  (1.0  -  TElaP) 
XTEMPii;  =   OTHLOS(I) 


153AW 


-K- 


II  =  0 


true 


160B) 


■Hia 


Jhpk 


[161A] 


161 


,16 


n 


(151^ 


•*■    H0LD2  =   BID(I,J,2) 


NEQUAL  =  1 
IDENT(I)  =   I 
NCHSCK  =  1 


NEQUAL  »  NEQUAL  +  1 
IDENT(NS;UAL)   =   I 


r CONTINUE  -* 


fl5lBl 


-W163A 


16? 


true 


true 


X 

z 

Y 
T 


0.0 

NiQOaL 
1.0/Z 


true 


-*^6U) 


>  1.0 

v> 

>     Y  - 

1.0 

163 


r 


L_* 


I£SSEE(I,J)  =   TEilP 
LEASE(II)   =  0 


I  =   IDSNT(l)    -» 
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CASK(I)  =   CaSH(I)  -  H0L92  *  CASHFT 

ACCPAl'(I)  =  ACCPAX(I)   +  H0LD2   *  (1.   -  CASHFT) 


K0LD1  =  TANG  (II)   +  INTANG(II) 


-Hl5hA 


I633) 


GAINLT(NDSAL)   * 
GAINLT(ND2AL)    +  HOLD2  -  HCLD1 


rue 


«■* 


XLOSLT(NDSAL)  - 
XLOSLT(NDEAL)   ♦  HOLD1-HOLD2 


16b 


CASH(NDEAL)   =   CASH(NDEAL)   +  K0ID2  *  CASIiFT 
ACCS&C(NDEAL)  =  ACCREC(NDEAL)   +.HQL32    (1.  -  CA3HFT) 


t 

N?DAT3(II)  = 

MSc 

)E3 

+ 

1 

INTANG 

KID  - 

H0LD2 

- 

TANG (II) 

K0LD1 

■  0.0 

HOLD2 

»  0.0 

60BH*- 


16£ 


I 


II  =  -BID(I,J,1) 


BIDMIN(II)  =  BID(I,J,2) 
Le5EiE(I,K)   =  0 
TEL:?  =   II 
3Ij(I,J,1)  =  0.0 
BID(I,J,2)  =  0.0 
N3SAL  =    I 


160C) 


PEN8EL(I,2)  =    PENSKL(I,2)   +  FIN; 
PSNSEL(I,1)   =  -BID(I,J,1) 
BID(I,J,1)  -  0.0 
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r 


DO  I  - 
1,HPIAI 


r 


L 


-15- 


LEASE(II)   =   II 

RVERSN(I,J)  =0.0 

LESSSS(I  K)  =  0 

XLCSLT(I)  =  XLOSLT(I)   +  INTANG(II 

IN'TAN3fII)   =  0.0 


P£NRVT(I,2) 
PENRVT(I,1) 
RVERSN(I,J) 


PENRVT(I,2)  +  FINE 

R7ERSN(I,J) 

0.0 
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DO  I  = 
1,NPIAY 


J  DO  J-1,L. 


BO  K  = 
l,MAXOWN 


^NA3D(I,1) 
PENABD(I,2) 


A3AND(I,J) 
PKNABD(I,2)    +  FINE 


7/ELIS  «  M7ELLS 

A3DC03(I)   -  ADQCOS(I)   +  VoLIS   *  aBDNFT 

XLOSLT(I)  =  XLOSLT(I)   +  TAHG(II)   +  INTANG(ll) 

INTANG(II)  «  0.0 

TANG(II)  =  0.0 

LESSEE(I,K)  =  0 

SWELLS ( II}   «  0 

LgSFACJll)  »  0.0 


I 


CONTINUE 

I 

HCONTINUZ  U 


158 


DO  I  = 
1,NPIAY 


FRINGE(I)  -  BENFIT 


HSQPAY(I)  -1.1  *  ?AY3aS 


REQ?AY(l)  »  0.3   *  PAYBAS 


REQPAY(l)  =  RLABOR 


FRINGS(I)  =  2.0  *  BENBAS 


>  r 


?AY(I)  =   REQPAY(I) 


EMPBEN(I)  »  FRINGE(I) 
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(felY- 


TS:.;P  =   TEMP  +  PAT(I) 
N'ETINC(l)   =  NSTINC(I)  *  XLNGTH 

H0LD1  =   HOLD1  +  NETINC(I) 
KOLD2  =    HOLD?   +   EMP3ZN(l) 


T 

X  =  NPIAX 
PAi'AVG  =   TEMP/X 
BSNAVG  =   HOLD2/X 
AVGINC  =   KOLDl/X 
SALE  =0.0 

V 

r 


DO  I  =  1,^6 


-H  SALE  =  SALE  +1.0 
, — I 


MONTH  =  MONTH  +  LENGTH  -  1 


MONTH  =  MONTH  -  12 
NYEAR  =  NYEAH  +  1 


IT^lvlP  =   MrJSESU- 


ISTRIK 
STRIKE 
STRLK2 


0 

(1.0 

(1.0 


?AY(I)/?AYAVG)   +   (1.0  -  PAY(l)/?AYBAS) 
EMPBEN(I)/BSNAVG)    +   (1.0  -  EMP3EN(l)/BSN3AS) 
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170 


STKFAC 

\  < 

►" 

G  1 IYT  i 

.c  =  0. 

001 

h-t 

STRIKE  =  (STRIKE  +  5TRIK2)  *  STKFAC 


IKE 

V     > 

STRIKE 

=  1.0 

1.0/ 
v£ 

/ 

own  =  c 

.0 

E^ERO  = 

0.0 

TOTTAN 

=  0. 

0 

TGTINT 

=  0, 

0 

DEIAYR 

=  0. 

0 

DRILL  = 

0.0 

T0TH3V 

=  o0 

0 

TOTRYL 

-   o. 

n 

TCTOPC 

=   n 

-  1 

0 

TOTDRR 

=  0, 

n 

TOTDPL 

=  0, 

0 

TOTRLS 

=  o. 

.0 

TOTGRO 

=  0, 

,0 

TCTOAS 

=  0. 

0 

ADO  =  C 

).0 

TOTOIL 

=  0, 

.0 

OTHEX? 

■=  0 

.0 

KOUNT  = 

•  0 

TOTHRS 

=   0 

.0 
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(r?m 


II  =  I 

ESSBECI, 

J) 

am  = 

om  +  1. 

0 

TEMP  = 

ii 

k"ESS3 

=    IT; 

aip 

qjib) 


-*^36b) 


73AV 


-p-hsik 


OILl  =  QZEEO(Il)/EX?(DZERO(Il)  *  TIME (II)) 

0IL2  =  QZERO(Il)/EXP(DZERO(II)  -  (TBSE(II)   +  1.0)) 

OILFAC  «=   (OILl   +  0II2)/2.0  ___ 


U71Q- 


[13 1A 


172 


(n^H 


-H173A 


-H1S0 


-M-LOUA 


GFAC  =  GORINT(Il)/lO. 
GOR1  =   (1.    +  3IN(3.1Iil6^9  *  (3./2.    +  TIME(II)/GFAC)))  * 

QZERO(II)   ■::-  (30./DZ-:RO(Il))/GILl  +  GOHINT(ll) 
0OH2  =   (1.    +  SIN(l.lLl659  *  (3./2.    ♦(TBiE(II')   +  1.0)/GFAC)))  * 

QZERO(II)   -  (30./UZERO(II))/OIL2   +  GORINT(II) 
GOR  =   (GOR1  +  G0R2)/2.0 


OILFAC  =  OILFAC  *  30. 
PRDCIL  =0.0 
PRDGAS  =0.0 


&72a) 


DC  K=l,1000 
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Q?2a)-+- 


(mh- 


PRDOIL  »  PRDOIL  +  OILFAG  *  WELNUM(K,.2) 


H0LD2  =   PRDOIL 
X  =  N7/ELLS(II) 


W> >-!  PRDOIL  «  X  *  OIIALiY 


PRDGAS  =   PRDOIL  *  GOR  *  .001 


JpRDC 


RDOIL  -  GASAEfiT*X/(G0R*.001) 


PRDGAS  =  PRDOIL  *  GOR  *  .001 
OILPRD(II)  =  0ILPRD(.II)   +  PRDOIL 
GASPRD(II)   =  GA3PRD(II)    +   PRDGAS 
IIME(II)  *  TEflS(ll)   +  PRD0IL/H0LD2 


17li 


173BU 


[dELAYR  =  DELAYR  +  ACRES  ( II  )/l2^o| *\18  6  c. 


LEASE(II)  =11 

LESSEE (I  J)  =   0 

XLGSLT(I)   «   XLOSLT(I)    +   INTANS(Il) 

INTANG(II)  =0.0 


-^36Cy 
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■••rp-rrn—      t-t-  / 


N  «  XDRILL(I  X,2) 
yjf.ILI(I,X,2;  =  0.0 


N  »  It 

XDRILL(ltK,2)  «  XJRILL(If K ,?)  -  1 1 .0_ 


CALL  HANDNO(RNUii) 

' 

■ 

>~   fJIUL  =   LESP'AC(Ij.) 


welnui:(iastnm,i)  =  n 

WmTU?^LASTKH,2)  =   HNUIv' 
LZSFaC(II)  =  LESFAC(II)  -   RNULI 

k*slls(ii)  =  k;vslls(ii)  -  i 

ECLD2  =  ;Z"R0(II)  *  RNUK 

OILFAC  =    (HOLD2  -  BOLD2/r.X?(DZERO(Il)))/2.0 

?I  =  OILFAC/((?I\T(Il)  -   ?INT(II)/2X?(DZ2R0(II)  *  l.U))/2.0) 


176 


WRITE  JJ,K,y 
H0LD2,PINTy 
(II),?I 


n 


DRILCS(II)  =   BRILCS(II)   +  DRINTO 

CASH(l)  -  CASH(I)  -  CASHFT  *  DRTANG 

ACCPAY(I)  ^  AC-CPAY(I)   +   (1.0  -   CASHFT)  #  DRTANG 

TANG (II)  =  TANG(II)   +  DRTANG 

EQCOST(II)   =  EGCOST(II)    +  DRTANG 

LASTN!s  =   LASTNH  +  1 


UIDD(i)  =   EANDD(l)    +  FRCCOs] 


EANDD(I)  =  HAKQD(l)   * 


WRITE    I 


JRITE  II 


XDRILL(I,K,2)  =   XDRILL(I,K,2)  -1.0 

CALL  ?i?-.:J?;o(Riru^) 


177 


.77at 


ri36d 


© 


-H 


GEOFAC(II)   =0.0 
H0LD2  =  CO 


K  =  1 


EaNDO(l)  =  EAMDD(I)   +  DitfHCS 
XDRILL(I,KK,l)  =0.0 
X0RILL(I,KK,2)  =  0.0 


X  =  0.0 
u  =  0.0 

CA  LL  RAN DNO  ( RN Ui£ ) 


77B 


DO  K  «  1,9 


V,r  =  71  +  FLOAT(K) 

y  =  m$. 


:&isa 


y  =  v 


CALL  RAN3N0(RNUM) 


-H13^ 
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Since  all  of 
these  statements 
are  similar  only 
one  will  be 

charted  • 


I 


RESQRS(II)  =   (120. 


IUM  *  116.)   *  10000. 


LESFAC(II)  =   RESGRS(Il)  *  .000005 
DZSRO(II)  =  0.03p 

QZSRO(II)  =  1./. 000012  *  DZEuO(II)/.99$ 
PINT(II)  =  1000.    +  RNUM  *  [.COO. 
FVF(II)  =  1.1  *  Rnu'.:  *  .1 


CALL  RAN  BN0(  RNUM  ) 

WELNUMClASTNU,].)  =   11 

^EIN0M(IASTNMJ2)  =  RNUM 

LASTNM  =   IASTNJd  +  1 

LSSFAC(II)   =  IZSFAC(II)  -  RNUM 

K  =   1 

KOLD2  =  QZERO(Il)  *  RNUM 

OILFAC  =    (H0LD2  -  fiOLD2/EXP(DZE?.C(Il)))/2.0 

?I  =  0ILFAC/((PINT(II)  -   ?INT(Il)/EXP(DZ3R0(Il)  *  l.h))/2.) 

CaLL  RANDNO(RNUM) 

VISCTI(II)  =  0.1  +-20.    *  RNUM 

GILL  RANBNQ(RNUM) 

GORINT(II).  =  1000.    *  RNUM 


PAYOUT  -  7.03   *  PI/(VISCTY(II)  #  FVF(II)  *  7.6) 


^1 


false 


true 


VISCTY(II)   =   VISCTi(Il)   -   .1 


-TRITE  JJ,K, 

0IL,H0LD2, 

^INT(II),PI, 

V7ISCTX(IIJ 

FVF( II y 


179 


51AH- 


Nv7ELLS(Il)  =   1 

DRILCS(II)  =   DRILCS(II)  +  DRIKTG 

CASH(I)  =   CASR(l)  -   CASHFT  *  DRTANG 

ACC?AY(l)  *  ACCPAY(I)   +   (1.0  -  CASHFT)   *  DRTANG 

TANG(ll)  =,TANG(II)   +  DRTANG 

;-;;ccs-;(iii  "  *=  iucosi(ii)  +  drta::g 


1  =  NWELLS(II,-« 


REQFRCC^K)  =  0.0 


true 


KO(II)  =  NO(II)  -  5 
CaLL  RANDNO(RNUII) 


-079A) 


-H130A 


QZSRO(II)  =   ^ZREO(II) 

"-  c  nr  x-iv^'i 

DZSRO(II)  =   DZERC(II) 

*  DSCLN 

Z  =  X  *  FRCCOS 

KO'JNT  ■  KOUNT   +  1 

130 


130A 


The  computations  for 
acid  treating,  punping 
&  seconiary  recovery 
are  similar  to  that  of 
fracturing  and  will  not 
be  flow  charted. 


181A1 


jji  EANDD(I)  =   EANDD(I)   +  FRCCOS 
KOUNT  =  KOU'NT  +  1 


i  »«iii£i 

FRCCOS 


I 


EAKDD(l)  =  SAKDD(l)   +  Z  *  0.1 

Y  =  Z  *  0.6 

TANG (II)  =  TANG (II)   +  I 

CASri(I)   =   CASH(I)  -  Y  -"-  CASKFT 

ACC?AY(l)  -  ACC?AY(I)   +   (1.   -   CASKFT) 

EQCOSTfll)  =   Z^CC5T(II)   +   f 


. 
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©*-- 


)H,S  =   i.£J23   +   1 


REVNUE(II)  =   OILPRD(Il)'-"-  OPRICE  +  GASFaD(II)  *  GPRICE 
ROYLTY(II)  =  EQYL  *  fEVKUE(Il) 

GR033(II)   «   RZVNUE(II)   -  ROYITr(II) 


FACTOR  =    (>:;C03T(II)  -  TANG ( II ) )/lSNLT( I , K , 2 ) 


FACTO! 

0.7= 


/ 


^o  r-T,P 

_   n   ^ 

£  - «  u  1  w  .  1    —     w  •  ;  > 

20 


TOR: 

> 

w. 

—  ■  fno  o 

In    n 

o       , 

F* 

f/iLiurt   =    c\j%\j 

*       ./^ 

t*iK3(ii)  =  Ta::g(ii)  +  re^-i'i^TT) 


13; 


J^CJSTdU  =   TAMG(II) 


CASH(I)   =   CASH  (I)   -  RENSv7(l,K,2)  *  CASHFT 

ACCrAY(l)  =  ACCPAY(l)   +  RSMZ'!(ItK,2)   *  (I.   -   CASflFT) 


VCFACT(II)   =  VCFACT(Il)  *  FACTOK 

EQaGE(II)  =  0.0 

EQLIFE(II)  =  &4LIFE (II) /FACTOR 


rsr;Lir':-.;(ii)"T~-:j..iFo(ii)  +  f4ags(ii)/factoh 


teEp  =  i::~li£(ii)  *  10  r 

TOTHRS  =  TOTHTS   +  TEMP 

\TAR  =  YCFACT(II)   *  EXP(EQAGS(II)/EQLIFE(II) 
OPCCST(Ii)  =  XLMGTH  *  TEMP  -  (PAY(I)   +  EiiPBEN(l)) 
+  VAR  *  OILPRD(II) 


true 


-H135B 


183 


(lS^U- 


I^J-CT(II)  =  ;;::.-ct(-.k.2) 


V 


true 


PSWDfiP(If2)  =    P2NDSP(IJ2)   +  FIN! 
PEND5P(l,l)  =   II 


18Ii 


te:;p  =0.0 

LIFE  =  JSQLIFS(IlQ 


+-U8S 


r 


-K   DO  K  =1,LIFI- 


L_t 


X  =   K 

TEMP  =  TEMP  +  X 


|  IDEPrjJCai)   =   DZrrcZU  II)    +   (Ev.IIr  Sdl)  -  X)/IZi;P  *  E?CC3TdD 

L 


-    ::  -  x  +  1.0 


-His  53 


IELE£T(ir)   =   j- 


V llELICTdl)  -   JEPftXdl) J4    V^? 


D-JP:;^C(  II)  =   IELECI(ijl) 


*~  DRhTE  =   2h./-^LIFE(II) 


TRJP  -   MESES/12 

TEMP  -   EQCOSl'(II)   *  (1.0  -   DfftTE)-**TZwP 


TI.v:?  »    TaI-jJ(II)  j 


u 


J:-.^EC(II)    =    DRAT:, 


...r 


[NFAC  J 


S'SAGSCII)  =  E^lGE(II)   +  XLNGTH 

iang(ii)  =  r/ir.:u(ii)  -  deprec(ii) 

TEMP  =  GEOSG(II)  -  XLCSS(II)  -  DEPEEC(II) 
-  DRILCS(ll)  -  OPCOST(II) 
DRILL*  DRILL  +  DRILC3(Il) 


H0LD2  =   DTTANG(II)   *  0ILPRD(II)/HSS0R3(II) 
RSSORS(II)  -  RSSORS(II)  -  OILPRD(II) 


PJRDPL  «  0.275  *  GR0o3(II)  \ 


[lSo 
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186 


ERD 


PL  \ 

v-  -p 

.   > 

J  P2RDPL  -  0.5  *  T^P 

pzrdpl 

HO  132 


*-  DSPLET(II)   =   ?^AD?j 


piAU 


PERDPL: 

^ 

DEPLET(II)  -  H0ID2 

K)LD2 

BEPLET(II)  =  H0LD2U* 


JBTXNET(II)  =-  TH^P  -  DSPLST(ll) 
"H  INTASG(II)  =   INTANG(II)  -   ZEPLET(II) 


*\  ~LJ  =  ADD  -    INTAHG(II) 


INTAKG(II)  =  0.0 


TOTREV 
TOTOIL 
TOTGAS 
TOTGRO 
TOTRYL 
TOTOPC 
TOTDPR 
TOTDPL 
TOTTAN 
TOTLnT 
OPCOSTC 


-  TOTREV  -  REVNflS(II) 
=  TOTOIL  +  OILPRD(II) 
=  TOTGAS   +  GASPRD(II) 

-  TOTGRO  +  GROSS  (II) 

-  TOTRYL  +  ROYLTY(II) 

-  TOTOPC  +  OPCOST(II) 
=  TOTDPR  +  DEPREC(II) 
=  TOTDPL  +  UEPLET(II) 
=  TuTTaN   +  TANG(II) 

=  totint  +  :nTh:;g(ii) 

ii)  +  qpccst(ii)  +  o-.ilcs(ii) 

[*—— 
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< 

T~:iJ  =  TSLli3 

-  BONDS (I) 

>        r" 

DIVHSC  =  D7RATE  *  INVEST(I)  *  TUFAC  | 

I  '-I  r PAT  =  (  3  T Lv.  AM  ( I )  «i T itt  TE  +  BONDS  ( I ) 


ij-'s.  x  i,  )    •*■    i  J :' Aw 


OiA 


INLT(I>v 

GA  Tin  LT  f  I )   - 

P.A  TMTTf  T  ) 

LOSLTilK      "^ 

-  XL03LT(I) 

^£3 

■\X 


uu(iy 


XLOSLTi 


XLOSLT(I)  ■  0.0 
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XLOSLT(I)  -  XLGSLT(I) 
-  GAIHLT(I) 


n 


(i)  =  o7o| 


CPGaIN  =  GAINLT(I)   +  OTHINC(I') 
CPLOSS  «=  XLOSLT(I)   +  OTHLGS(l) 

CASH(I)  =  CASH(I)   +  DIVRSC  -  INTPAY  +  TOTREV  *  CASHFT 
ACCREC(I)  =  ACCREC(l)   +  TOTRSV  *  (l.   -  CASHFT) 
DIVPaY  =   DIVDND(I)   *  SHARES (I) 
XDRIL  *   DRILL  *  CaSHFT 

ACGPAY(I)   =  ACCPAY(I)   +  DRILL  *   (1.   -   CaSHFT  ) 
PENLTY  »   P£NSEL(I,2)   +   P2NRVT(I,2')   +  PENABD(I,2)   +   P£NDSP(I,2) 
REDEEM  =  BONDS  (I)   *  TIMFAC  *  .O? 
ACCPaX(I)   =  aCCPaY(I)   +  EnNDD(l)   *  (1.    -   CASHFT) 
CA3H(I)  =   CASH(I)  -   TOTRYL  -  REDEEM  -   DELAYR  -   XDRIL  -   TOTOPC  - 
OPRES(I)  _  ABDCOS(I)  -   EANDD(I)   *  CaSHFT  -   PENLTY  ' 
INVEST(I)  =    INYEST(l)   +  REQINV(I) 
BGNDS(I)  =  BONOS (I)   +  RKQ3ND(I)  -  REDEEM 
AD1,:  IN  =  A3S£T5(I)   *   .02"  . __       _ 


X  =  ADJIN  *  0RCARY(I)/0RBASE  #  0.1 


MX.  ADMIN  *  0*5  "I 


=-+\  ADMIN  =  0.0 
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ORCARY(I)  =  ORCARY(I)   +  OPRES(l) 

CASH(I)  =  CASH(I)  -  KEQINV(I)   +  RaQBND(l)   +  REQLNS(l)-ADMIN 
■IOTOPE  =  TOTRYL  +  DELAYR  +  DRILL  +  TOTOPC   +  TOTDPR  + 

TOTDPL  +  ABDCOS(I) 
OPNET  =  TOTRSV  -  TOTOPE 
TOTINC  =   CPGaBI    +   DIVREC 

OTHSXP  =   INTPAY  +  ADMIN   +  EAMDD(l)   +  OPRES(l)   +  CPL03S 
KOLD1  =  0.85  *  DIVRBC 

PRETAX  =  OPNET  +  TOTINC  -  OTHEXP  -  H0LD1  -  GAINLT(I) 
SIAXaX  =  STAXR  *  TOTGRO 
FEDTAX  =  FTAXR  *  (PRETAX  -  STATAX) 


*-    FEDTaX  =  0.0 


OliiLOS(I)   =  OTHLOS(I)   + 
AB3(  PRE  fAX-STATAX  ) 


TAXLTG  -  .25  *  GAINLT(I) 

C4Sh(l)  -  CASH(I)  -  STATaX  -  FEDTAX  -  TAXLTG 

NETINC(l)  =   PRETAX  -  STATaX  -  FEDTAX  -  TaXLTG  +  GAINLT(I) 

+  H0LD1   +  ADD  +  XTEMP(I) 
H0LD2  =   RTEARN(I) 
RTEARN(I)  =   RTEARS(I)   +   UETINC(l)  -  PSNLTY  -  DIVPaY 


MQUOTE(I)  «  J&UOTE(l)  *   (DIV3aS  -  DI7DND(I))/DIVBAS  *  QUOTFT 

M;uqTE(I)   *  >A,UOTE(l)    +  RTgARNjJJ   -   H0LD2/RTEaRN(I)   »  ».-;UOTE(I) 
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BISTOK  =  SOLDSr(l)   *  hQUCTE(I) 
?AYCAP(l)  =   PAYCAP(I)   +  BISTOK 
CA3H(I)   =   CASH(I)   +  BISTOK 
SHAiffiS(I)  «  SHAFJ5S(I)   +  SOLDST(I) 


SELL  =  o.o.,;_ 

BISTOK  =  A3S (BISTOK) 


SELL  =  3IST0K-*- 
BISTOK  =0.0 


I 


—»4  EQUITY  =  NSTIKC(I)  -   PSHLTY  -   317  PAY   +  SELL  -  BISTOK! 


^ 


RViriG-  -  ABS(CASH(I))  *  1.1 

CASH(I)   =  0.0 


i 


STLOAN(I)  =  STLOnN(I)   +   EEQLNS(I)   +  E2EflQ 

ASSETS(I)  =   CASH(I)   +  ACCHSC(I)   +  TOTTAN  +   TOTINT  +  INVSST(I) 
BOOK  «=   (PAYCAP(I)   +  RTEAHN(I))/SKf\xSS(l) 
TOTLIB  =  ACCPAY(l)   +  STLOAN(I)   +  BONDS(I)   +  PAYCAP(I) 
+  RTEAHN(I) 
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151 


373 


.WRITE  FINAfcy 
CIAL  3TATyS 
SHEET     / 


WHITE 
PARAMETERS 


r 


do  i=i,nplay; 


l_ 


WRITE 


ACCOUNTING 


i: 


^WHITE  I£SS3B>LEASE,N«ELLSfNPDATE,RESOiTSfS2LIF3J 
B5AGE,TA?K>,IMTAKajISLECTJ7CFACT,ACHH3fQE0FAC, 

:.7SLNUM,SQCOST,  i 


LESFAC^TI^S^ZERQ ,  DZ  ERO ,  NO ,  3 IDMIN  s 
PINT.VISCTXJVF.GGRINT  '  


192 


'Wt  =  1 


CALL  EXIT 


END 


-Hl;?7A 


SUBROUTINE  RA.NDNO 


f        START        J 

i 


SUBROUTINE  RANDNO(RNUM) 
I  =  RNUM  *  10.0 


't 

RNUii  =    (RNUM  *  100. 

*  3.): 

-*2 

X  -   RNUM  *  .001 

M  =  X 

Y  =  U 

rkv::  =  X  -  Y 

J  =   RSJUL:  *  10.0 

APPENDIX  B 
Computer  Program 


l?L 


****   PAYDIRT   —   AN  ENG I NEEK 1 Nu-MANAGEMtNT  b I MUL A T I  ON   *»** 
»**»   PROGRAMED  IN  FORTRAN  IV  COMPUTOR  LANGUAGE   »*** 

REAL  INTANG.  INVEST.  INTREC.  IN1PAY,  NETINC.  LESFAC.  MOUOTE 
DIMENSION  BID(5»8»2>.  ACRES(Db).  IDENTIC).  LEASEI56).  LESSEE(b.20 
ltPAYCAP(5)>  PEN3ELI5.2).  RVFRSNI5.4),  ABANQ<b.4|,  PENKVTI5.2). 
2  PENARD(b.2).  NWELLS<56),    ARDCOSI5).    OlLPkD(56).  GASPRDI56). 
3GORINTI56).  NETINCI5).  OTHINC(b).  SOLDSTI5).  GAINLT(b),  XLOSLT(b) 
4  0PCOSTI56).  REVNUt(b6l.  ROYLTY(b6)»  L>kGSS(5b;.  lNTANG(b6)» 
5TANU<56).  bTXNET(5o)»  UlVDNDlbl.  XLOSS(:j6>.  DEPLET(b6).  ACCRtC(b) 
6uEPRtC(56).  UKlLCS(b6).  EQAGt J  36 ) .  lELtCTI56).  kEbUkM56). 
7VCFACTI56).  UZtkU(bo).  NtLECT ( b »a  .2  )  .  RENEW ( 5  »b  .2 ) *  PENDtP(b.2). 
8ACCPAYI5).  iNVEoT(b).  CASrt(b).  oTLUAN(b).  EMPBENI5).  BONDSI5). 
9SHARES(5).  RTEARNI5)*  MQJUTE(b).  REQLNb(b).  REUPAY(5)'.  RtOINVIb) 
DIMENSION  OTHLOSI5).  REUrlNDIb).  tANDDIbl.  OPRES15).  NPDATE(5o>. 


FRINGE 
LFSFAC 
RFQFRC 


PINTI56).    VISCTY(36)»     FVF156).     REUPM.P  (  b  .4  )  .     XTENP(b).     RECJSECI5.4 


1 

2 

3 

4 

5 

8 

9 

10 

11 

1? 

13 

14 

15 

16 

17 

18 

19 

21 

22 

24 

25 

26 

27 

28 

29 

3o 


FORMAT 
FORMAT 
FORMAT 

FORMAT 
FORMAT 
FORMAT 
FORMAT 
FORMAT 
FOR'-AT 
FOR'-'AT 
FORMAT 
FORMAT 
FORMAT 
FORMAT 
FORMAT 
FORMAT 
FORMAT 
FORMAT 
FORMAT 
FORMAT 
FORMAT 
FORMAT 
FORMAT 
FORMAT 
FORMAT 
FORMAT 


5).  PAY(5).  ORCARYI5).  UZEROI56).  EULIFE(b6t»  EOCOSTI56) 
^6).  TlME(56)t  GrOFAC<56).  WELNUM( 1000*2 ) •  N0I56). 
5*4),  REQACD(b.4).  RIDM!N(b6).  XDR  I  LL ( 5 . a , 2 ) .  ASSETS(5). 


1H1  I 

1H0  ) 

1H0/  ) 

1H0//  ) 

1H  ) 

2A6,  14 ) 

20F4.0) 

IX .20F4.0 ) 

8rin.2) 

8110)  ' 

7F10.0.F10.21 

:  me) 

1X.8F10.0 ) 

16F5.2) 

1X.16F5.2) 

2014) 

1X.2GI4) 

1X.8F1C.2 ) 

IX, 8 1 10) 

1  X  ,  1  0  I  8  ) 

8F10.0) 

IX .7F10.0 »F10.2 ) 

16F5.0) 

1  X  »  1 6  F  3  .  0  ) 

8F10.6) 

1X.8F10.6) 


0 


(5 
(5 

15.11  I 
(5*11  ) 


8)  DRY,  OIL*  NDECKS 

12  )  MON  TH»iN  YEAR.  LENGTH*  ME  SES»NCOPYS*i\PLAY,«M  A  XOWN*LASTNN. 
FINE.OPKICE.GPKICE  .  ABDNFT  .FTAXR  .STAXK  .3TK.FAC  .VARCOS 
BDRATE»BENFIT,BENBAS»RLAB0R.PAYBAS,DIVBAS«0R8ASE* 


JUMP 

READ 

READ 

READ 

READ 
1  STRATE 

READ  (5 

READ  (5 
1  EOCSFT 

READ  15.11)  PMPCOS.  AC DCOS.SECCOb.FR FLOW.  AC FLO w.PMFLOW.SR FLOW. D EC L 

XLNGTH  =  LENGTH 

TIMFAC  =  XLNGTH/12. 

NDEAL    =    0 


11  ) 
11  ) 


RMUM.ROYL.TERMSR.TERMSP.DVRATE.DRTA.NG.DRINTG.FRCCOS 
OILALw'.GASALW.DRYHCS.CASHFT  .UUOTF T .FkCFAC  .ACDFAC. 


PDT 

)PDT 
PDT 
PDT 

.PDT 
PDT 

.PDT 
PDT 
PDT 
PDT 
PDT 
PDT 
PDT 
PDT 
PDT 

)PDT 
PDT 
PDT 
PDT 
PDT 
PDT 
PDT 
PDT 
PDT 
PDT 
PDT 
POT 
PDT 
PDT 
POT 
PDT 
PCT 
PDT 
3JT 
PDT 
PDT 
PDT 
PDT 
PDT 
PDT 
PDT 
PDT 
PDT 
PDT 
PDT 
PDT 
PDT 
PDT 
PDT 
PDT 
PDT 
PDT 
PDT 

NPDT 
PDT 
PDT 
PDT 


1 
2 
3 
4 
5 
6 
7 
8 
9 
10 
11 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
23 
29 
30 
31 
32 
33 
34 
3b 
3t> 
37 
38 
39 
<-0 
41 
42 
43 
44 
45 
46 
47 
46 
49 
50 
51 
b2 
53 
54 
55 
56 
57 


195 


no 


DO  110 
REAP  ( 

1  STLOA 
READ  ( 

I  PAY! I 
OTHINC 
XLOSLT 
GAINLT 
1DENTI 
PENSEL 
PENRVT 
PENOEP 
ARDCOS 
PENAHD 
READ  ( 
READ 
READ 
READ 
READ 
READ 
READ 
READ 
READ 
READ 
READ 
READ 
READ 
READ 
READ 
READ 
READ 
READ 
READ 
READ 
READ 
READ 
READ 
READ 
READ 
READ 
WRITE 
WRITE! 
WRITE! 
WRITE! 
WRITE! 

1  STRAT 
WRITE! 
rfRITE! 

1  EOCSF 
WRITE! 
DO  102 
WRITE! 

1  STL04 
102  WRITE! 

1  PAY! I 
WRITE! 
WRITE! 
WRITE! 
WRITE! 
WRITE! 


101 


I  = 
5.11  ) 
MI). 
5.11  ) 
)  .  NE 
(11  = 
(11  = 
I  I  )  = 
I  )  = 
(  I  .2) 

(  1.2 
(  I  .2) 
I  I  )  = 

(  1.2 


181 

181 

18) 

19) 

11  ) 

27) 

27) 

11  ) 

11  ) 

18) 

16) 

11  I 

16) 

11  ) 

11  ) 

11  ) 

29) 

18) 

25) 

9) 

16) 

25) 

25) 

11  I 

16) 

25) 

.1  ) 

8) 

22) 

21) 

21  ) 

21  I 
21) 

21  ) 

26) 
I  )  • 
26) 
NE 
19) 
19) 
19) 
19) 
15) 


1 .NPLAY 

CASH!  I  )  .ASSETS! I  )  .ACCKEC!  I  )  .ACCPAY!  I  )  .  INVEST  !  I  )  . 
BONDS!  I  )  .MQUOTE (  I  ) 

PAYCAP! I  )  .RTEAKN!  I  )  .SHARES!  I  )  .ORCARYI I  ) .OTHLOS!  I ) . 
TINC! I ) .  EMPREN! I ) 

0.0 

0.0 

0.0 
0 

=  0.0 
)  =  0.0 

=  0.0 

0.0 
)  =  0.0 
( (LESSEE! I »K ) .  K  =  1.20)  .  I  =  1.NPLAY) 

LEASE 

NWELLS 

NPDATE 

RESORS 

EQLIFF 

EOAGE 

TANG 

INTANG 

!ELECT 

VCFACT 

ACRES 

GEOcAC 

LESFAC 

T  IVE 

OZERO 

DZE90 

NO 

R-IDMIN 
(WtLNJM! I .1 ) .  1=1 

(  a'ELN'JM!  I  .2  )  .  I  =  ! 

EOCOST 

PINT 

VISCTY 

FVF 

GORINT 


.1000) 
a. 1000) 


DRY.  OIL.  NDECKS 
MONTH. NYEAR .LENO 
FINE.OPRICE.GPRI 
RATEBD.dENF IT.BE 

RNJM.ROYL.TtRMSR 
OILALa'  .GASALW.DR 


Th.MESES.NCOPYS.NPLAY.MAXOWN.LASTNM 
CE  .ABDNFT.FTAXR.STAXK.STK.FAC.VARCOS 
NBAij.RLABOK.PAYBAS.OIVBAS.OKBASE. 

.TERMbP.DVRATt.DRTANG.DRINTG.FRCCOS 
fHCS.CASHFT  .UUOTKT ,FRCF AC . ACDFAC » 


PMPCOS.ACDCOS.SECCOS.FHFLOw.ACFLO.^.PMFLOW.SHFLOW.DEC 
1 .NPLAY 

CASH!  I  (.ASSETS!  I  )  .ACCREC!  I  )  .ACCPAY!  I  ) , INVEST!  I  I  » 
BONDS!  I  )  .MQUOTE!  I 

PAYCAP!  I  I  .RTEARN 
TINC!  I  )  .  EMPREN!  I 
( (LESSEE!  I  .<)  .  K  = 

LEASE 

NWELLS 

NPDATE 

RESORS 


) 

(  I  )  .SHARES!  I  )  .ORCARY!  I  ) , OTHLOS!  I ) . 

) 

1.20)  .  1=1. NPLAY) 


PDT 

58 

PDT 

59 

PDT 

60 

PDT 

61 

PDT 

62 

PDT 

63 

PDT 

64 

PDT 

65 

PDT 

66 

PDT 

67 

PDT 

68 

PDT 

69 

PDT 

70 

PDT 

71 

PDT 

72 

PDT 

73 

PDT 

74 

PDT 

75 

PDT 

76 

PDT 

77 

PDT 

78 

PDT 

79 

PDT 

80 

PDT 

Gi 

PDT 

62 

PDT 

83 

PDT 

84 

POT 

85 

PDT 

86 

PDT 

97 

PDT 

88 

PDT 

89 

PDT 

90 

PDT 

91 

PDT 

y2 

PDT 

93 

PDT 

94 

PDT 

95 

PDT 

96 

PDT 

97 

PDT 

98 

PDT 

99 

PDT 

100 

PDT 

101 

PDT 

102 

PDT 

103 

PDT 

104 

PDT 

105 

PDT 

106 

LNPDT 

107 

PDT 

108 

PDT 

109 

PDT 

HO 

PDT 

111 

PDT 

112 

PDT 

113 

PDT 

114 

PDT 

115 

PDT 

116 

PDT 

117 
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WRITEI6 

WRITEI6 

WRITEI6 

WRITE  (6 

WRITEI6 

WRITEI6 

WRITE(6 

WRITEI6 

WRITEI6 

WR1TE(6 

WRITEI6 

WRITE (6 

WRITE (6 

WRITE  (6 

WRITEI6 

WRITE  (6 

WR1TEI6 

WRITE  ( 

WRITE  (6 

WRITE  ( 

WRITEI6 

WR  I  T  E  (  6 

WRITElo 

WRITE<6 

WRITE 


2ft) 
28) 
15) 
.1  ) 
15) 
191 
17) 
15) 
17) 
21  ) 
21  ) 
21  ) 
30) 
IS)) 
15) 
1  ) 
10) 
.1  ) 
17) 
.1  ) 
15) 
13  I 
21) 
17) 
<6.15 
IF  ( JUMP. GT 
115  CONTINUE 

WRITE  (6.1) 
00  120  I  = 
GASPR^I  I  )  = 
REVNUE!  I  )  = 
ROYLTY(I)  = 
GROSS!  I)  = 
OPCOST(I)  = 
DEPRtC(I)  = 
UEPLETI  I  )  = 
RTXNET(I)  = 
DRILCS(I)  = 
XLOSStI)  = 
IF  (VCFACT! 
120  CONT  I.NUE 
»•*•  READ  IN 
DO  130  I  = 
READ  (5.11) 
1  REOPAYI I )  , 
*RITE(6,26) 
I  REOPAYI  I  )  , 
READ  (5,11  ) 
WRITE (6,  15) 
READ  (5,11) 
WRITE(6,15) 
READ  (5,11  ) 
WRITE(6,15) 
READ  (5,11) 
WRITE (6,  15) 
READ  (5,11) 
WRITE(6,15) 
READ  (5,12) 
WRITE(6,22) 
READ  (5,12) 


EOLIFE 

EQAGE 

TANG 

INTANG 

IFIFCT 

VCFACT 

ACRES 

GEOFAC 

LESFAC 

TIME 

OZFRO 

DZERO 

NO 

RIO^IN 

(WELNUMI I ,1 ) ,  1=1,1000) 

( WELNUMl  I ,2 )  ,  1  =  1  ,1000) 

EOCOST 

PINT 

VISCTY 

FVF 
)  GORINT 
,0)  GO  TO  999 


1,56 

0.0 
0.0 

o.c 

0.0 

0.0 

u  .  0 

0.0 

O.f) 

0.0 
0.0 
I  ) .EQ.O.O)  VCFACT (  I  )  = 

PLAYER  DFCISIONS. 

1  ,NPI_AY 
DIVONDI I  )  ,  RECLNSf  I  )  , 
OPRES!  I  ) ,  FRINGE! I  ) 
DIVDND!  I  ) ,  REOLNS!  I  )  , 
OPRES!  I  ) ,  FRINGE! I  ) 


(RID! I,J,1 ) , 
(RID!  I , J»l  )  , 
(RID!  I  ,J,2  )  , 
(RID!  I , J, 2 )  , 
(RVFRSN! I  ,J )  , 
(RVERSN! I.J), 
(RENEW!  I.J.I), 
(RENEW!  I  ,J,1  )  , 
IRENE'S'!  1  ,J.2)  , 
(  RENEW!  I  ,J  ,2  )  , 
(NELECTI I ,J,1 ) 
(NELECTI I .J.l ) 


J  =  l  ,8  ) 

J=l  .8) 

J=l  .8  ) 

J=1.8) 
J=l  ,4  )  , 
J=l .4)  . 

,  J=l ,8) 

,  J=l ,8) 
J=l,8) 
J=l,8) 
J=l ,8) 
J=l»8) 


(NELECT!  I  .J. 2)  .J  =  l ,8) 


PDT  113 
PDT  119 
PDT  120 
PDT  121 
PDT  122 
PDT  123 
PDT  124 
PDT  125 
PDT  126 
PDT  127 
PDT  128 
PDT  129 
PDT  130 
PDT  131 
PDT  132 
PDT  133 
PDT  134 
PDT  135 
PDT  136 
PDT  137 
PD-T  138 
PDT  139 
PDT  140 
PDT  141 
PDT  142 
PDT  143 
PDT  14.4 
PDT  145 
PDT  146 
PDT  147 
PDT  148 
PDT  149 
PDT  150 
PDT  151 
PDT  152 
PDT  153 
PDT  154 
PDT  155 
PDT  156 
PDT  157 
PDT  158 
PDT  159 
PDT  160 

KEQBNIMI)*  REUINV(I),  SOLDST  (  I  )  ,PD  T  1  o  1 

PDT  162 

REGBND(I)*  REOINV(I),  SOLDST ( I ) ,PDT  163 

PDT  164 
PDT  165 
.  PDT  166 
PDT  167 
PDT  168 
PDT  169 
PDT  170 
PDT  171 
PDT  172 
PDT  173 
PDT  174 
PDT  175 
PDT  176 
PDT  177 


VARCOS 


( ARAND! I ,J) 
( APAND! I ,J) 


1  ,4) 
1  .4) 
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WRITE16. 27)  (NELECTd  ,J.2)  .J=l  .8)  PDT  178 

READ  15,25)  (XDRILL(I»J»l) •  J=l»8)  PDT  179 

WRITE(6»15)  (XDRlLLI I «J»1) »  J=l»8)  PDT  180 

READ  (5.25)  (XDRlLLI I  .J. 2)  .  J=1.8)  PDT  181 

WRITE(6,15)  (XDRlLLI  I  .J. 2)  .  J=1.8>  PDT  182 

READ  (5,25)  IREQFRCI I »J) »J  =  1  .4) »  I REuACD 1  I  .  J  )  .  J= 1 . k )  PDT  183 

wRITE(6,15>  (REOFRCl  I  .J)  ,J  =  1  ,4)  .  I KEUACD I  I  .  J  )  ,  J= 1 . 4  )  PDT  ld4 

READ  (5,25)  I REOPMPI I t J ) t J  =  l i4 1 i  I KECSEC I  I » J ) ♦ J= 1 » 4 1  PDT  185 

WRITEI6.15)  (RE'JPKPl  I  .J)  ,J  =  1  ,4  I  .  IKEUSEC  (  I  ,  J  I  t  J=l  .4)  PDT  186 

IF  (LENGTH. Eu.O)  GO  TO  130  PDT  187 

IF  (REQLNS(I).LT.O.l)  GO  TO  127  PDT  188 

CRAT10  =  (CASri(I)  +  ACCRtCd  )) /(ACCPAYI!  )  +  STLOANII))  PDT  189 

IF  (CRAT  IO.LE.2.0)  RFQLNS(I)  =  0.0  PDT  190 

IF  (CRATIO.LE.2.0)  GO  TO  129  PDT  191 
TEMP  =  (CASH! I  )  +  ACCRECIII  -  2.0    *  ACCPA Y 1  I  )  ) /2 . 0  -  STLOANII)     PDT  192 

I  IF  (REQLNSI  I  )  .LE.TFMP)  GO  TO  129  PDT  193 

REQLNSI I)  =  TF'-'P  PDT  194 

127  IF  (REQLNSI  I  I.LT.I-U. Id  GO  TO  128  PDT  195 
GO  TO  129  PDT  196 

128  STLOANII)  =  STLOANII)  +  REULNSIl)  PDT  197 
CASH! I)  =  CASH( I)  +  REQLNSI II  PDT  1980 
REQLNSI  I  )  =  0.0  PDT  1981 

129  TEMP  =  XLNGTH/TERMSR  POT  199 
IF  (TEMP. GT. 1.0)  TFMP  =  1.0  PDT  200 
CASHl!)  =  CASH! I)  +  ACCRFC(T)  *  TEMP  PDT  201 
ACCRECII)  =  ACCREC(I)  »  (1.0  -  TEMP)  POT  702 
TEMP  =  XLNGTH/TF.RMSP  PDT  203 
IF  (TEMP. GT. 1.0)  TEM.p  =  1.0  PDT  204  . 
CASH!  I)  =  CASH!  II  -  ACCPAYI  I)  *  TEMP  PDT  2'05 
ACCDAV(I)  =  ACCPAYII)  *  (l.U  -  TEMP)  PDT  206 
XTFvip(i)  =  OTHLOS(I)  PDT  207 

130  CONTINUE                       '  PDT  208 
11=0  PDT  209 

*»**   CHECK  TO  SEE  IF  LEASE  IS  FOR  SALE.  PDT  210 

189  11=11+1  PDT  211 

IFdI.GT.56)  GO  TO  199  PDT  212 

IF  (LEASE! d ) .GT.O)  GO  TO  200  PDT  213 

GO  TO  189  .  PDT  214 

200  TEMP  =  LEASEdl)  PDT  215 

216  NCHFCK  =  0  PDT  216 

NEOUAL  =  0  PDT  217 

DO  201  I  =  l.NPLAY  PDT  218 

DO  2C2  J  =  1,8  PDT  219 

»»**   ChEC<  PLAYERS  BIDS  FOR  BIDS  ON  THE  FIRST  AVAILABLE  LEASE.  PDT  220 

IF  (BIOI  I  »J»1  ) .LT.0.01 )  GO  TO  2u2  PDT  221 

IF  (BIDI  I  »J»1 ) .EQ. TEMP. AND. NCHtCK.EQ.O)  GO  TO  224  PDT  222 

IF  (RIDl  I*J»1 l.EO.TEMP)  GO  TO  203  PDT  223 

GO  TO  202  pDT  224 

224  IF  [BIOMINI I ! ) .GT.RIDI I ,J,2 ) )  GO  TO  201  PDT  225 

206  H0LD2  =  BID(I*J»2)  .   pDT  226 

NEOUAL  =  1  PDT  227 

IOFNTI 1 )  =  I  pDT  228 

NCHECK  =  I  pDT  229 

GO  TO  201  PDT  230 

203  IF  (BIDI I,J,2).GT.HOLD2)  GO  TO  206  PDT  231 

IF  (BIDI I»J»2).NE.HOLD2)  GO  TO  201  PDT  232 

NEOUAL  =  NEOUAL  +  1  PDT  233 

IDENTINEQUAL)  =  I  pDT  234 

GO  TO  201  PDT  235 

202  CONTINUE  PDT  236 
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201  CONTINUE  POT  237 

IFINEQUAL.EO.l )  GO  TO  210  POT  238 

IF  (NEQUAL. EO.O. AND. NDEAL.F-'Q.u )  GO  TO  16V  POT  239 

IF  (NEQUAL. CO. 0. AND. NDEAL.GE. I  )  GO  TO  199  POT  240 

209  CALL  RANDNO  IRNU"I  POT  241 
X  =  0.0  POT  242 
I    =  NEQUAL                              .  POT  243 

Y  =  1.0/2  POT  244 
T  =  Y  POT  245 
DO  207  I  =  ltNEOUAL  POT  246 
IF  (RNUM.GT.X.AND.RNUM.LE.Y)  GO  TO  208  POT  247 
X  =  Y  POT  248 

Y  =  Y  +  T  POT  249 
IF  (Y.GF.1.0)  Y  =  1.0  POT  250 

207  CONTINUE  POT  251 

20B  I  =  IDENT! I )  POT  252 

214  CONTINUE  POT  253 

DC  211  J  =  l.^AXOWN  POT  254 

IF  (LESSEEdiJf  .EQ.CM  GO  TO  212  POT"  255 

211  CONTINUE  PDT  2=6 

212  LESSEE! I.J)  =  TEMP  POT  257 
LEASE! II !  =  0  POT  253 
GO  TO  2  13  PDT  259 

210  I  =  I0ENT(1 )  =DT  260 
GO  TO  214  PDT  261- 

213  CASH! I)  =  CASH! I)  -  H0LD2  »  CASHFT  °0T  262 
ACCPAY(I)  =  ACCDAY(I)  +  H0LD2  *  (1.  -  CASHFT)  PDT  263 
I"  (NOEAL. GT.  J)  GO  TO  22'J  ■  ?DT  2t>4 
GO  TO  22  1  PDT  265 

220  HOLDI  =  TAr:G(II)  *  iNTANGtll)  PDT  266 
IF  (H0LD2. GT. HOLDI. AMD. MESES-NPDATE! II J.GT.6J  GA INLT  t  NDcAL  )  =  PDT  2o7 

1  GAIMLTINDEALJ  *  H0LD2  -  HOLDI  PDT  266 

IF  (nOLD2.LT.HOi.Dl  .AND.MESES-NPDATEl  I  I  )  .GT.6  )  XLOSLT  (  NDtAL  )  =  PDT  269 

1  XLOSLT !\DEAL)  +  HOLDI  -  H0LD2  PDT  270 

IF  (MESES  -  NPDATE(II>.i.E.6.AND.HCLDl.GT.HOLD2)  PDT  2?1 

1XL0CLT (NDEAL)  »  XLOSLT { NDEAL )  -  HCLD2  ♦  hOlDI  PDT  272 

IF  (MESES  -  \PD-ATE!  I  I  )  .LE.6. AND. HQLD1.LT. H0LD2)  POT  273 

1  OTHINC(NDEAL)  =  OTHINC ( NDEAL)  +  H0LD2  -  HOLDI  PDT  274 

CASHt.NDEAL)  =  CASH(NDEAL)  +  H0LD2  *  CASHFT  PDT  275 

ACCRECJNDEAL )  =  ACCREC ( NDE AL  )  +  HCLD2  *  (1.--  CAShFT )  POT  276 

221  IF  (Na'ELLo(  II  )  .Nt.O.AND.NDEAL.EQ.O)  EQCOST  (  I  I  )  =  HGLD2  *  EOCSFT  PDT  277 
IF  (NDEAL.EO.O)  *A,\G(II)  =  EQCOoT ( I  I  )  PDT  278 
NPOATE(II)  =  MFSES  +  1  PDT  279 
INTANG(II)  =  H0LD2  -  TANG(II)  PDT  280 
HOLDI  =  0.0  PDT  281 
H0LD2  =  0.0  •  PDT  282 
IF  (NOEAL. GT.O)  GO  TO  199  .  PDT  283 
GO  TO  189  PDT  234 

199  CONTINUE  PDT  285 

NDFAL  =  0  PDT  286 

DO  231  I  =  l.NPLAY  POT  287 

DO  231  J  =  1»8  PDT  288 

IF  (BID( I.J.I). LT. (-0.01  )  )  GO  TO  233  PDT  289 

GO  TO  231  PDT  290 

233  II  =  -BID! I.J.I )  PDT  291 
DO  234  K  -  ltMAXOWN  PDT  292 
IF  (II.EQ.LESSEEI  I  .K)  )  GO  TO  235  PDT  293 

234  CONT INUE  POT  294 
GO  TO  236  PDT  295 

235  RIDMIN(II)  =  BIDII.J.2)  PDT  296 


199 


236 


231 
C   *» 


245 


LESSEE!  I  .K)  =  0 
TEMP  =  I  I 
BIDt  I »J.  1  )  =  0.0 
BID(  I,J,2  )  =  0.0 
NDEAL  =  I 
00  TO  216 

PENSELII.2)  =  PENSELII.2)  +  FINE 
PENSELt  I  .1  )  =  -RIOt  I  .J. 1) 
BIDt  1  »J.  1  >  =  0.0 
CONTINUE 
'*      LEASE  REVERSION. 

00  241  I  =  l.NPLAY 
DO  241  J  =  1,4 

IF  (RVERSN! I  .J) .LT.U.01 )  GO  TO  241 

1  I  =  RVERSN!  I .J! 

IF  (MWELLSdl  l.GT.OJ  GO  TO  241 

DO  244  <  =  l.MAXOWN 

IF    (LESSEE(UK).EQ.II)    GO    TO    245 

CONT  trjur 

GO    TO    243 

i : 
=  o.o 
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241 


LEAS=( II  )    = 
RVFRSM' I »J) 
LESSEE (  !  ♦<<     =    ( 
IF    (V.ESES-NP0ATE1  I 
IS-"    t.VESES-NPDATEl  I 
IN  TANG (  !  I  )     =     0.0 
GO    TO    241 

penrvt t  r *?.)   -  3e:v-:vt ' 
Pfi7vT  (  : .; )    =  svESSNi 

RVERSN(I»J)  -  0.0 

CC\7 ;\jf_ 

'■••   LEASE  iBANPONV.EMT. 

^1  751  I  =  1  .\  =  l^v 

DO  ?  5 7    J  =     1,4 

IF  i ^BANOI I .J! .LT.0.0 
•J: 

♦  f-'AXON 
»<) •  E  Q  .  I  I 


)  .  L  E  .  6  ) 
)  .GT.6) 


X'_OS'_T  (  I  )  = 
XLOSL' ( : )  = 


XLOSLM I ) 
XLOSLT ( I ) 


INTANG1 I  I ) 
INTANGI I  I) 


i  )  GO  TO  251 


i:     =    rXBANDI 
00  253  <  = 

if  (lessee; ;♦<) .eg.: ; i  oo  to  254 

253  CONTINUE 
PE.\A5D(I»1I  =  A3ANDkI»Jl 
P£NA3D(It2)  =  PENA3D(i»2>  +  FINE 
GO  TO  251 

254  WELLS  =  NWELLS! I i   ) 

ABDCOS(I)  =  ABDCOS(I)  +  WELLS  *  ARDNFT 

IF  (MESES-NPOATEi  I  I  )  .LE.6)  OThlOS(I)  = 
1  +  TANG!  I  I ) 

IF  (MESES-NPDATE!  i I  )  .GT.6)  XLOSLT ( I  )  = 
1  +  TANG(  I  I ) 

INTANGt II)  =  0.0 

TANGI II)  =  O.C 

LESSEE! I »<)  =  0 

NWELLS! I  I )  =  0 

LESFACI II)  =  0.0 
252  CONTINUE 
251  CONTINUE 

TEKP  =  0.0 

H0LD1  =  0.0 

H0LD2  =  0.0 

DO  300  I  =  l.NPLAY 

IF  (RENFIT.GT.0.01 ) 


OTHLOS!  I  ) 
XLOSLTt  I  ) 


INTANGt I  I  1 
INTANGt I  I ) 


FRINGE! I )  =  PENFIT 


PDT  297 

PDT  298 
PDT  299 
PDT  300 
PDT  301 
PDT  302 
PDT  303 
PDT  304 
PDT  305 
PDT  306 
PDT  307 
PDT  308 
PDT  309 
PDT  310 
PDT  311 
PDT  312 
PDT  313 
PDT  314 
PDT  315 
PDT  316 
PDT  317 
PDT  318 
PDT  319 
PDT  320 
PDT  321 
PDT  322 
PDT  323 
PDT  324 
PDT  325 
PDT  3  26 
POT  327 
PDT  32b 
DDT  "29 
PDT  330 
PDT  331 
PDT  332 
PDT  333 
PDT  334 
PDT  335 
PDT  336 
PDT  337 
PDT  338 
PDT  339 
PDT  340 
PDT  341 
PDT  342 
PDT  343 
PDT  344 
PDT  345 
PDT  346 
PDT  347 
PDT  348 
PDT  349 
PDT  350 
PDT  351 
PDT  352 
PDT  353 
PDT  354 
PDT  355 
PDT  356 
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300 


310 


801 


802 


630 


EMPREN( I )  =  FRINGE! I ) 


IF  (REQPAYI I  J .GT.1.1*PAYBAS)  REUPAY(I)  = 

IF  (REQPAYI I ).LT.0.9*PAYBAS)  REOPAY(I)  = 

IF  (RLABOR.GT.0.1 )  REQPAY(I)  =  RLABOR 

IF  (FRINGE! I > .GT .2.0*UENBAS )  FRINGE(I)  = 

IF  <REQPAY( I ) .GT.0.1 )  PAY(I)  =  REQPAY(I) 

IF  (FRINGE! I ) .GT. 0.01 ) 

TEMP  =  TEMP  +  PAY( I ) 

NETINC(I)  =  NETINC(I)  *  XLNGTH 

H0LD1  =  H0LD1  +  NETlNCI  I  ) 

H0LD2  =  H0LD2  +  EMPBEN(I) 

X  =  NPLAY 

PAYAVG  =  TEMP/X 

BENAVG  =  H0LD2/X 

AVGINC  =  H0LD1/X 

SALE  =  0.0 

DO  310  I  =  1.56 

IF  (LEASE! I ) .GT.O)  SALE  =  SALE  +  1.0 

CONTINUE 

MONTH  =  MONTH  +  LENGTH  -  1 

IF  (MONTH. GT. 12 )  GO  TO  801 

GO  TO  802 

MONTH  =  MONTH  -  12 

NYEAR  =  NYEAR  +  1 

I  TEMP  =  MESFS 

DO  601  I  =  1 tNPLAY 

ISTRIK  =  0 

STRIKE  =  (1.0 

STRIK2  =  (1.0 

IF  (STKFAC. LE 

STRIKE  =  (STRIKE  + 

IF  (STRKE.LT.G.O) 

IF  (STRIKE. GT. 1.0) 

CALL  RANDNO(RNUM) 

IF  (RNUM.GT .O.O.AND.RNUM.LT 

OWN  =  0.0 

EyFRG  =  0.0 

TOTTAN  =0.0 

TOT  I  NT  =  CO 

DELAYR  =  0.0 

DRILL  =  0.0 


1.1 

0.9 


PAYBAS 
PAYBAS 


2.0  *  BENBAS 


-  PAY!  I )/PAYAVG)  +  (  1 

-  EMPBENf I ) /BENAVG)  + 
0.0)  STKFAC  =  0.001 

STRIK2)  *  STKFAC 
STRIKE  =  0.0 
STRIKE  =  1.0 


■  0    -    PAY(  I  )/PAYBAS) 
(1.0  -  EMPBEN( I )/BENBAS) 


STRIKE)  ISTRIK  =  1 


603 


TOTREV 

=  0.0 

TOTRYL 

=  0.0 

TOTOPC 

=  0.0 

TOTDPR 

=  0.0 

TOTDPL 

=  0.0 

TOTRES 

=  0.0 

TOTGRO 

=  0.0 

TOTGAS 

=  0.0 

ADD  =  < 

3.0 

TOTOIL 

=  0.0 

OTHEXP 

=  0.0 

KOUNT  : 

=  0 

FUDGE  ■ 

=  0.0 

TOTHRS 

=  0.0 

WRITE 

(6»1  ) 

DO  602 

J  =  1» 

MAXOWN 

IF  (LESSEE(I» 

J) .GT.O) 

GO  TO  i 

b02 

II  =  LESSEE! I 

♦  J) 

OWN  =  < 

OWN  +  1 

.0 

GO  TO  603 


PDT 

357 

PDT 

358 

PDT 

359 

PDT 

360 

PDT 

361 

PDT 

362 

PDT 

363 

PDT 

364 

PDT 

365 

PDT 

366 

PDT 

367 

PDT 

368 

PDT 

369 

PDT 

370 

PDT 

371 

PDT 

372 

PDT 

373 

PDT 

374 

PDT 

375 

PDT 

376 

PDT 

377 

PDT 

378 

PDT 

379 

PDT 

380 

PDT 

381 

PDT 

382 

PDT 

3b3 

PDT 

3b4 

PDT 

3bb 

PDT 

386 

PDT 

387 

PDT 

388 

PDT 

'389 

PDT 

390 

PDT 

391 

PDT 

392 

PDT 

393 

PDT 

394 

PDT 

395 

PDT 

396 

PDT 

397 

PDT 

398 

PDT 

399 

PDT 

400 

PDT 

401 

PDT 

402 

PDT 

403 

PDT 

404 

PDT 

40  5 

PDT 

406 

PDT 

407 

PDT 

408 

PDT 

409 

PDT 

410 

PDT 

411 

PDT 

412 

PDT 

413 

PDT 

414 

PDT 

415 

PDT 

416 
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TEMP  =11  pDT  417 

MESES  =  ITEMP  pD T  ^i8 

DO  632  JJ  =  1. LENGTH  POT  419 

IF  (NWELLSU  I  ).EQ.OJ  GO  TO  633  PDT  420 

IF  (  ISTRU.EO.I.AND.JJ.LT. 3)  GO  TO  632  PDT  421 

OIL1  =  QZEROI  I  I  )/EXP(DZER0(  I  I )  *  TIME(II))  PDT  422 

OIL?    =  QZEROt  I  I  )/EXP(DZERO(  I  I  )  *  (TIME(II)  +  1.0))  PDT  423 

OILFAC  =  (OIL1  +  OIL21/2.0  PDT  424 

DO  648  <  =  U4  PDT  425 

IF  (REQFRC ( I »K) .EQ.TEMP )  GO  TO  633  PDT  426 

IF  (KEQACD( I »K) .EQ.TEMP)  GO  TO  633  PDT  427 

IF  (REQPMPI I .<) .EQ.TEMP)  GO  TO  690  PDT  428 

IF  (REQSECI I »K) .EQ.TEMP )  GO  TO  691  PDT  429 

648  CONT INUE  PDT  430 

680  CONTINUE  PDT  431 

IF  (OILFAC. LT.O. 01 )  GO  TO  616  PDT  432 

GFAC  =  GORINT (  I  I  )/lu.  PDT  433 

G0R1  =  (1.  +  SIN(3. 141659  *  (3./2.  +  T I  ME (  I  I  ) /GFAC )  )  )   *  PDT  434 

1  QZERO(II)  *  (10.  /DZERO( I  I ) J/OIL1  +  GO-  +  NTIII)  PDT  435 
GOR2=  (1.  +  SIN<3.  141659  *  (3./2.  +  (TIME(II)  +  1.0) /GFAC) ) )  *     PDT  436 

1  QZERO(II)  *  (10.  /DZERO( I  I  )  )/OlL2  +  GORINT(II)  PDT  437 

GOR  =  (GOR1  +  GOR2J/2.0  PDT  438 

IF  (GOR.LT.GORINTt II )*0.9)  GOR  =  GORINT(II)  *  0.9  PDT  440 

OILFAC  =  OILFAC  *  30.  PDT  441 

PRDOIL  =  0.0  PDT  442 

PRDGAS  =  U.O  PDT  443 

DO  683  K  =  1.1000  .  PDT  444 

IF  (WE  LNUMU.l  )  .EQ.TEMP1GO  TO  684  PDT  445 

GO  TO  683  PDT  446 

684  PRDOIL  =  PRDOIL  +  OILFAC  *  WELNUMU.2)  PDT  4^7- 

683  CONMNUF  PDT  448 

HOL02  =  PRDOIL  PDT  449 

X  =  N'a'ELLS(  II)  .  PDT  450 

IF  (PRDOIL. GT.X*0ILALW)  PRDOIL  =  X  *  OILALW  PDT  451 

PRDGAS  =  PRDOIL  *  GOR  *  .001  PDT  452 

IF  ( PRDGAS. GT.X*GASALW)  PRDOIL  =  GASALW  *  X/(GOR  *  .001)  PDT  453 

PRDGAS  =  PRDOIL  *  GOR  *  .<J01  PDT  454 

OILPRD(II)  =  OILPRO(II)  +  PRDOIL  PDT  455 

GASPRD(II)  =    GASPRD(II)  +  PRDGAS  PDT  456 

TIMEiII)  =    TIME; II)  +  PRDOIL/HOLD2  •  PDT  4d7 

633  CONT INUF  PDT  458 

DO  650  <  =  l.,8  PDT  459 

K<  =  <  PDT  460 

IF  (XDRILL  (  I  »K,1  )  . EO.TEMP. AND. NWELLS1  I  I  )  .EO.O)  GO  TO  658  PDT  461 

IF  (XDRILLI  U<»1  ) .EQ.TEMP. AND. XDRILL( I »K»2) .GT. 0.1 )  GO  TO  651  PDT  462 

650  CONT INUE  PDT  463 
IF  (NWELLSI  I  I  UGT.OI  GO  TO  676  PDT  464 
IF  (MESES-NPDATEI I  I ) .GT.12)  GO  TO  657  PDT  465 
IF  (MESES  -  NPDATE( I  I  ) .GT.60)  GO  TO  636  PDT  4651 
GO  TO  621  PDT  466 

657  DELAYR  =  DELAYR  *  ACRES (  I  I  ) /  12 .0  PDT  467 

GO  TO  621  PDT  4680 

636  LEASEf II)  =  II  PDT  4681 

LESSEE! I.JI  =  0  PDT  4682 

XLOSLT(II)  =  XLOSLT(II)  +  INTANG(II)  PDT  4683 

INTANG(II)  =  0.0  PDT  4684 

GO  TO  621  pDT  4685 

651  KOUNT  =  KOUNT  +  1  PDT  469 
IF  (KOUNT. EO.l)  WRITE  (6,1100)  I  PDT  470 
IF  (JJ.EQ.l)  WRITE  (6,1101)  II  PDT  471 
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IF  IXDRILLI I »K,2 ) .GT.4.0)  GO  TO  634  PDT  472 

N  =  XDRILLI I »K»2 )  PDT  473 

XDRILLI  I  »K. 2  )  =  0.0  POT  474 

GO  TO  635  PDT  475 

634  N  =  4  PDT  476 
XDRILLI  I  »K»2 )  =  XDRILLI  I >K  .2 )  -  4.0  PDT  477 

635  CONTINUE  _  PDT  478 
DO  652  <  =  1  .N  '  PDT  479 
CALL  RANDNO(RNUM)  PDT  480 
IF  (LESFAC( I  I  ) .LT.0.U01  )  GO  TO  659  PDT  481 
IF  (LESFACl  I  I  J-RIMUM.LE.O.O)  RNUM  =  LESFAC(II)  PDT  482 
WELNUM(LASTNM.l )  =  II  PDT  483 
WELNUM(LASTNM»2  )  =  RNUM  PDT  484 
LESFACl  I  I)  =  LESFACIII)  -  RNUM  PDT  4ti5 
NWELLSI  I  I)  =  NWELLS(II)  +  1  '  PDT  486 
H0L02  =  QZFRO(II)  *  RNUM  PDT  487 
OILFAC  =  (H0LD2  -  H0LD2 /EXP  I DZERO I  I  I  )  )  J /2 . 0  PDT  488 
PI  =  OILFAC/I  (PINT! I  I  )  -  P  INT  I  I  I  ) /EXP  I DZERO I  I  I  )  *  1.4))/2.0)  PDT  489 
WRITE  (6.1114)  JJ,  K»  OIL.  H0LD2.  PINT(II).  PI  PDT  490 
DR1LCSIII)  =  DR1LCSIII)  +  DRINTG  PDT  491 
CASH! I)  =  CASH! I)  -  CASHFT  *  DRTANG  PDT  492 
ACCPAYII)  =  ACCPAY(I)  +  (1.0  -  CASHFT)  *  DRTANG  PDT  493 
TANGIII)  =  TANGIII)  +  DRTANG  PDT  494 
EOCOST(II)  =  EQCOSTIII)  +  DRTANG  PDT  495 
LASTNM  -  LASTNM  +1  PDT  4Vo 
IF  (NCI  I  I  )  .LT .40)  EANDDII)  =  EANDDII)  +  FRCCOS  PDT  497 
IF  INOI  I  I  ) .LT.25)  EANDDII)  =  EANDDII)  +  PMPCOS  PDT  498 

652  CONTINUE  PDT  499 

GO  TO  676  PDT  500 

658  KOUNT  =  KOUNT  +  1  PDT  501 
IF  ( KOUNT. FQ.  1  )  WRITE  (6,11001-1  PDT  502 
IF  (JJ.EG.l)  WRITE  (6,1101)  II  PDT  503 
XDRILLI  I  ,K,2)  =  XDRILLI  I  »K » 2  )  -  1.0  PDT  504 
CALL  RANDNOIRNUM)  PDT  505 
IF  (RNUM.GT.GEOFACl I  I  )  )  GO  TO  659  PDT  506 
GO  TO  660  PDT  507 

659  GEOFACIII)  =  0.0  .  PDT  508 
H0LD2  =  0.0  •  PDT  509 
IF  (NWELLSI II I.EO.OI  K  =  1  •  PDT  510 
WRITE  (6,1103-)  JJ,  K.  DRY,  H0LD2  PDT  511 
EANDDII)  =  EANDDII)  +  DRYHCS  PDT  512 
XDRILLI  I  ,KK»1  )  =  0.0  PDT  513 
XDRILLI  I  »KK» 2 )  =  0.0  PDT  514 
IF  (NWELLSI II l.GT.O)  GO  TO  676  PDT  515 
GO  TO  621  PDT  516 

660  X  =  0.0  PDT  517 
W  =  0.0  PDT  518 
CALL  RANDNOIRNUM)  PDT  519 
DO  661  K  =  1.9  PDT  520 
W  =  W  +  FLOATIK)  PDT  521 
Y  =  W/45.  PDT  522 
IF  (RNUM. GT.X. AND. RNUM. LE.Y)  GO  TO  662  PDT  523 

661  X  =  Y  PDT  524 
GO  TO  616  PDT  525 

662  CALL  RANDNOIRNUM)  PDT  526 
GO  TO  (663,664,665,666,667,668,669,670,671 ) ,K  PDT  527 

663  CALL  RANDNOIRNUM)  PDT  528 
IF  (RNUM. LT. 0.5)  GO  TO  663  PDT  529 
RESORS(II)  =  RNUM  *  16460000.  PDT  530 
LESFACIII)  =  RESORS(II)  .*  .000002  PDT  531 
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DZERO(II)  =  0.033333  pDT  532 

QZEROUI)  =  1./.000OO4  *  DZEROU  I  I/.995  PDT  533 

PINTUI)  =  1000.  +  RNUM  *  4000.  PDJ  534 

FVF (II)  =  1.1  +  RNUM  *  .4  Pqj  535 

GO  TO  675  pDT  536 

664  RESORS(II)  =  (263.  ♦  RNUM  *  560.)  *  10000.  PDT  537 
LESFAC(II)  =  RESORSUI)  *  .000003  pDT  53s 
DZERO(II)  =  0.034167  pDT  539 
QZFRO(II)  =  1./. 000006  *  DZFRO (  I  I  ) /. 995  PDT  540 
PINT(II)  =  1000.  +  RNUM  *  4000.  POT  541 
FVF(II)  =  1.1  +  RNUM  *  .4  POT  542 
GO  TO  675  PDT  543 

665  RESORSUI)  =  (120.  +  RNUM  *  116.)  *  lOuOO.  ■  PDT  544 
LESFAC(II)  =  RESORSIII)  *  .000006  PDT  545 
DZFRO(  I  I  )  =  0.035  PDT  546 
QZEROUI)  =  1./. 000012  *  DZFROI I  1  )/.995  PDT  547 
PINT(II)  =  1000.  +  RNUM  *  4000,  PDT  548 
FVF(II)  =  1,1  +  RNUM  *  .4  PDT  549 
GO  TO  675  PDT  550 

666  RESORS(II)  =  (58.4  +  RNUM  *  61.6)  *  10000.  PDT  551 
LESFAC(II)  =  RESORSIII)  *  .000009  PDT  552 
DZERO(II)  =  0.035833  .  PDT  553 
OZERO(II)  =  1./. 000018  *  DZERO( I  I  )/.995  PDT  554 
PINT(II)  =  loOO.  +  RNUM  *  4000.  PDT  555 
FVF(II)  =  1.1  +  RNUM  *  .4  PDT  556 
GO  TO  675  PDT  557 

667  RESORSIII)  =  (41.2  +  RNUM  *  17.2)  *  10000.  PDT  558 
LFSFACIII)  =  RFSORSIII)  *  .000012  PDT  559 
DZERO(II)  =  0.036667  PDT  560 
OZFRO(II)  =  1./. 000024  *  DZERO (  I  I  )  / .995  PDT  561 
PINT! II)  =  1000.  +  RNUM  *  4000.  PDT  562 
FVF(II)  =  1.1  +  RNUM  *  .4  PDT  563 
GO  TO  675  PDT  564 

668  RESORSUI)  =  (17.15  +  RNUM  *  24.05)  *  10000.  PDT  565 
LESFAC(II)  =  RESORSUI)  *  .0000137  PDT  566 
DZERO(II)  =  0.0375  PDT  567 
QZERO(II)  =  1./. 0000274  *  DZERO( I  I ) /.995  PDT  568 
PINT(II)  =  1000.  +  RNUM  *  4000.  PDT  569 
FVF(II)  =  1.1  +  RNUM  *  .4  PDT  570 
GO  TO  675  PDT  571 

669  RESORSIII)  =  (10.3  +  RNUM  *  7.12)  *  10000.  PDT  572 
LESFACUI)  =  RESORSUI)  *  .0000256  PDT  573 
DZEROUI)  =  0.038333  PDT  574 
OZERO(II)  =  1./. 0000512  *  DZEROI I  I ) /.995  PDT  575 
PINT(II)  =  1000.  +  RNUM  ♦  4000.  PDT  576 
FVF(II)  =  1.1  +  RNUM  *  .4  PDT  577 
GO  TO  675  PDT  578 

670  RESORSIII)  =  (3.2  +  RNUM  *  7.1)  *  10000.  PDT  579 
LESFACUI)  =  RESORSUI)  *  .000035  PDT  580 
DZEROUI)  =  0.039167  PDT  581 
QZEROUI)  =  1./. 000070  *  DZERO  (  I  1  )  /  .995  PDT  582 
PINTUI)  =  1000.  +  RNUM  *  4000.  PDT  583 
FVF(II)  =  1.1  +  RNUM  *  .4  PDT  584 
GO  TO  675  PDT  585 

671  RESORSIII)  =  (1.76  +  RNUM  *  1.44)  *  100CO.  PDT  586 
LESFACUI)  =  RESORSIII)  *  .00008  PDT  587 
DZEROI  I  I )  =  0.04  PDT  588 
OZEROUI)  =  1./. 00016  *  DZEROI  I  I  )/. 995  PDT  589 
PINTUI)  =  1000.  +  RNUM  *  4000.  PDT  590 
FVF(II)  =  1.1  +  RNUM  »  .4  PDT  591 
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675  CALL  RANDNO(RNUM) 

WELNUMlLASTNM.l )  =  II 

WELNUMILASTNM.2 )  =  RNUM 

LASTNM  =  LASTNM  +  1 

LESFAC(II)  =  LESFAC(II)  -  RNUM 

K    =  1 

HOLD2  =  QZERO(II)  *  RNUM 

OILFAC  =  (HOLD2  -  HOLD2/EXP ( DZERO ( I  I )  )  )  II  .0 

PI  =  OILFAC/I  (PINT( II  )  -  PINT!  I  I )/EXP(DZtR0(  1  It  *  1.4))/2.0) 

CALL  RANDNO(RNUM) 

VISCTYIII)  -  0.1  +  20.  *  RNUM 

CALL  RANDNOIRNUM) 

GORINT(II)  =  1000.  *  RNUM 

672  PAYOUT  =  7.w8  *  P I / ( V  ISCTY (I \ )  *  FVF (III  *  7.6) 

IF  (PAYOUT. LT.O.  )5 . AND. V  I SCT Y (  I  I  I .GT.2.01  GO  TO  673 
GO  TO  67*. 

673  VISCTYIII)  =  VISCTYIII)  -  .1 
GO  TO  672 

674  aRITE  (6.11J9)  JJ.K.0IL..H0LD2.PINTI  I  I  )  .PI  .VISCTYI  I  I  )  ,FVF(  II  ) 
NWKLLSIII)  =  1 

DRILCS(M)  =  ORILCS(M)  +  DRINTG 

CASH!  I)  =  CASH(I)  -  CASHFT  *  DRTANG 

ACCPAYII)  =  ACCPAYtl)  +  (1.0  -  CA5HFT  )  *  DRTANG 

TANG(II)  =  TAMGIIIJ  +  URTANu 

EQC0STUI1  =  E0C05TIII)  +  DRTANG 

676  X  -  \acLLS(  II) 
DO  677  <  =  1,4 

IF  (FfEOFSfCf  I  •  <)  .EQ.TFMP)  &!")  T0  bop 
IP-  (REQACDt I .<) .EQ.TEMP)  30  ^0  636 

677  C'ON'TIV;  r 
GO  TC  63? 

6a 5  ?z~)r  ic  (  : :  -•<  i  =  a.c 

Ir  |.\0;  ;  ,'  ;  .\l.3  J.OK.\J(  I  I  )  .NC.hJ  )  GO  Tu  667 

\o ; i i )  -   no ( : : i  -  3 

CALL  3AN0\0  !RN  Kl 

IF  (RN(JM.LT.r'<Ct-"AC1  60  TO  oH7 

OZCHOfil)  -  OiE^OiII)  *  F<FLO 

OZFRCIII!  --    D2FX0(IM  *  DECLN 

I    -   t,    -  F?rcos 

KOU\T  =:  XO.;:;-  *  \ 

IF  ( KOUN T.r.0.1  )  WRITE  16»1100)  I 

WRITE  16*1104)  ii 

WHITE  (6»1105J  X.  Z 

GO  TO  6  V, 
687  EANDDCI)  =  EANDDI I )  +  FRCCOS 

<OUNT  =  <OoNT  +  1  4 

IF    KOUiNT.cO.l)  «RITE  (6.11U0)  I 

WRITE  (6.1104)  II 

WRITE  (6.1110)  FRCCOS 

GO  TO  632 
686  RFOACOI I  ,<)  =  0.0  . 

IF  (N0(  I  I  ) .LE.30)  GO  TO  688 

N0( I  I  )  =  N0(  II)  -  10 

CALL    RANDNO(RMIM) 

IF    (RNUM.LT.ACDFAC )    GO    TO    688 
'      OZERO(II)     =    QZFRO(II)     »    ACFLOW 

OZERO(II)    =    DZERO(II)    *    DECLN 

I    =    X    *    ACDCOS 

KOUNT    =    KOUNT    +    1 

IF     OCOUNT.EQ.l  )     WRITE     (6.1100)     I 


POT 

592 

POT 

593 

PDT 

594 

POT 

595 

POT 

596 

POT 

597 

POT 

598 

PDT 

599 

PDT 

600 

PDT 

601 

PDT 

602 

POT 

603 

PDT 

604 

PDT 

605 

POT 

606 

PDT 

607 

PDT 

608 

PDT 

609 

PDT 

610 

POT 

611 

PDT 

612 

PDT 

oi3 

PDT 

014 

PDT 

615 

POT 

616 

POT 

617 

POT 

618 

por 

ol9 

P0T 

620 

pr\  T 

621 

PDT 

622 

POT 

623 

PDT 

624 

POT 

625 

»DT 

626 

PDT 

627 

POT 

628 

POT 

629 

POT 

630 

POT 

631 

PDT 

632 

PDT 

633 

PDT 

634 

POT 

635 

POT 

636 

PDT 

637 

PDT 

636 

POT 

639 

POT 

640 

POT 

641 

POT 

642 

POT 

643 

POT 

644 

POT 

645 

PDT 

646 

PDT 

647 

POT 

648 

PDT 

649 

PDT 

650 

PDT 

651 

205 


WRITE  (6.11061  I  I  pDT  652 

WRITE  (6.1107)  X.  Z  pDT  653 

GO  TO  631  PDT  654 

688  EANDD(I)  =  EANDDI  I  )  +  ACDC05  PDT  655 

KOUNT  =  KOUNT  +  1  PDT  656 

IF  (KOUNT. EG. 1  )  WRITE  (6,1100)  I  PDT  657 

WRITE  (6.1106)  I  I  PDT  658 

WRITE  (6.1111)  ACDCOS  PDT  659 

00  TO  632                         .  PDT  660 

690  REQPMP(I.K)  =  0.0  PDT  661 
IF  (OILFAC.GE.OILALW)  GO  TO  632  PDT  662 
IF  (N0( I  I l.LE.15)  GO  TO  632  PDT  663 
QZERO(II)  =  QZERO(II)  *  PMFLOW  •  PDT  664 
DZERO(II)  =  DZERO(II)  «  DECLN  PDT  66,5 
N0( II )  =  15  PDT  666 
Z  =  X  *  PMPCOS  PDT  667 
VCFACTIIII  =  VCFACT(II)  *  1.1  PDT  668 
KOUNT  =  KOUNT  +1  PDT  669 
IF  (KOUNT. tQ. 1)  WRITE  (6.1100)  I  PDT  670 
WRITE  (6.1112)  II.  X,  Z  PDT  671 
GO  TO  631  PDT  672 

691  REQSECII.O  =  0.0  PDT  673 
IF  (OILFAC.GE.OILALW)  GO  TO  632  POT  674 
IF  (NO(II).EQ.O)  GO  TO  632  PDT  675 
UZERO(II)  =  OZERO(II)  *  SRFlOW  PDT  676 
DZFRO(M)  =  DZcRO(II)  *  .9  .  opt  677 
VCFACTIIII  =  VCFACTIIII  »  1.3  .  -  V?DT  678 
Z  =  X  »  SECCOS  PDT  679 
KOUNT  =  KOiJNT  +  l  pr>T  680" 
IF  (<OUNT.  F.Q.I  )  ••-.•RITE  (6.1100)  I  •  POT  631 
NOIlll  »  0  PDT  6  82 
WRITE  (6.1113  )  I  I  .  7.                          ■  PDT  6o3 

631  EANDOI I )  =  FANDiil  I)  +  Z  *  0.4  -^dt  684 

Y  =  Z  *  0.6  PDT  645 

TANG(II)  =  TANGI II)  +  Y  P0T    abb 

CA5HI!)  =  CA5HII)  -  Y  »  CAShFT  PDT  687 

ACC->A*<[)  =  ACCPAY(I)  +  (1.  -  CASHFT)  *  Y  PDT  6co 

EQCOSTIII)  =  EGCOST(II)  ♦  v  PDT  Go9 

63?  MESES  =  VPSES  *  1                                      •  PDT  690 

****   CCMP'JTE  TOTAL  REVCNUL.  aOvAlTIES  ANO  GROSS  INCOVE.  PDT  691 

REVNUEIIIl  s.  OlLPRCi  I  I)  *  OPrUCE  «■  GASPRDdll  *  GPRICE  PDT  692 

ROYLTYdl)  =  :-!OYL  *  REVNUEid)  PDT  693 

GROSS(II)  =  REVNUC(! I)  -  RGYLTYdI)  PDT  694 

*#**   CntLK  TO  SEE  IF  PLAYER  HAS  RENEWED  EQUIPMENT  ON  LEASE.  PDT  695 

DO  604  K  -  1.8  PDT  696 

IF  (RENEW!  I  ,K,1  i .LE. 0.01 )  GO  TO  608                 .  PDT  697 

N  =  RENEW!  I  ,<.  i  )  PDT  698 

IF  (N.EO.LESSEFl  I  . J)  )  GO  TO  605  PDT  699 

604  CONTINUE  •  PDT  700 
GO  TO  608  PDT  701 

605  FACTOR  =  (EQCOST(II)  -  TANGI  i I  )  ) /RENEW ( I .K.2  )  PDT  702 
IF  (FACTOR. LT. 0.75  I  FACTOR  =  0.75  "  PDT  703 
IF  (FACTOR. GT. 20. or  FACTOR  =  20.0  PDT  704 
TANG(II)  =  TANG(II)  +  RENEW! I. K.2 I  PDT  705 
IF  (EOCOST ( II ).LT. TANGI I  I )  I  EQCOST(II)  =  TANGI II)  PDT  706 
IF  ( IELECT( II  I.GT.3)  lELECT(Il)  =  1  PDT  707 

•  CASH! I)  =  CASH!  I)  -  RENEW!  I  , K.2)  •  CASHFT  PDT  708 

ACCPAY(I)  =  ACCPAY(I)  +  RENEWII.K.2)  »  (1.  -  CASHFT)  PDT  709 

IF  (FACTOR. GT. 1.0)  GO  TO  607  PDT  710 

VCFACT(II)  =  VCFACTIIII  »  FACTOR  PDT  711 


206 


EQAGEI 111=  0.0  PDT  712 

EOLIFE  I  1  I  I  -    EOLIFFI I  I l/FACTOR  PDT  713 

GO  TO  608  PDT  714 

607  EOLIFE I  I  I »  =  EQLIFFIII)  +  EQAGE ( II ) /FAC TOR  PDT  715 

608  TEMP  =  NWELLSIII)  *  10  .  .  PDT  716 
TOTHR5  =  TOTHRS  +  TEMP  PDT  717 
VAR  =  VCFACTIIII  *  EXPIEUAGEI  I  I  I/EQLIFEI  I  I  )  )  PDT  718 
OPC05TUI)  =  XLNGTH  *  TEMP  *  ( PAY ( I  )  ♦  EMPBEN(I))  +  VAR  *  PDT  719 

1  OILPRDI II )  PDT  720 

IF  (TANGI  I  I  )  .LE.O.O.OR.EOAGE  (  I  I  )  .GE.EULlr  ,.  I  I  I  I  )  GO  TO  616  .PDT  721 

##»»   CHECK  TO  SEE  IF  PLAYER  DESIRES  TO  CHANGE  DlPRECIATION  METHOD.   PDT  722 

DO  610  <  =  1.8  PDT  723 

IF  (NELECT! I »K.1).EQ.I I  1  GO  TO  611  PDT  724 

610  CONTINUE  ,  •  PDT  725 
GO  TO  61  ?  PDT  726 

611  IF  (IELECTI II J.EQ.C)  IELECT(II)  =  NELECT ( I  ,<  .2  )  PDT. 727 
IF  ( IcLECTI II J.EQ.O)  GO  to  616  PDT* 728 
IF  (NELECTl I,K,2 ).E0. IELECTI II ) )  GO  TO  612  PDT  729 
IF  (NELECT  (.I.K.. 2  )  ..;:0.1  .AND.  I  ELECT  (  I  I  )  .E0.2)  GO  TO  620  PDT  730 
PENDF.3<:.2!  =  PENDEPCI.2)  +  FINE  '  PDT  731 
PENDEPI  I.»l)  =.  I  I  "             PDT  732 

612  IF  t IELECTI II I.EO.O)  GO  TO  616  PDT  733 
IF  ( IELECTI I i I.EO.l)  GO  TO  614  PDT  734 
IF  (  IELECTI  II  LEO. 2)  GO  TO  615  PDT  735 
IF  [ IELECTI II) .GT. 3!  GO  TO  609  PDT  736 
TEMP  =  0.0  .  PDT  737 
LIFE  =  FQLIFEI I  I  )  PDT  736 
00  640  K  =  1 .LIFE  PDT  739 
X  =  <  PDT  740 

64C  TEMP  =  TEMP  +  X  PDT  741 

X  =  EQAGEI I  I )+  1.0  PDT  742 

IF  IEQAGEI II ) .LE.0.01)  X  =  0.0  POT  743 

DO  6^*1  K  -  i. LENGTH  PDT  744 

DEPREC(II)  =  DEPREC(II)  +  (EQLIFEIII)  -  X)/T£MP  *  EOCOST(II)  PDT  745 

641  X  =  X  +  1.0  '              PDT  746 

GO  TO  616  PDT  747 

620  lELECTi  I  I )  =  1  PDT  748 

614  DEPRECUI)  =  TANGI I  I  I/EQLIFEI  1  I  )  PDT  749 
IELFCT(II)  =  DEPREC(II)  •  PDT  750 
GO  TO  616          •  PDT  751 

609  DEPREC(II)  =  IELECTI II)  #  PDT  752 
GO  TO  616  PDT  753 

***»   COMPUTE  DEPRECIATION  BY  THE  DECLINING  BALANCE  METHOD.  PDT  754 

615  DRATE  =  24  . /EQL  I  FE  I  I  I  )  PDT  755 
IF  (MESES.LQ.O)  GO  TO  613  PDT  756 
TEMP  =  MESES/12  PDT  757 
TEMP  =  EQCOSTIII)  »  (1.0  -  DRATE)**TEMP  PDT  758 
GO  TO  619  PDT  759 

613  TEMP  =  TANGI  II  I  PDT  760 
619  DFPRECIIl)  =  DRATP  *  TEMP  *  TIMFAC  ".  PDT  761 

616  EOAGEIII)  =  EOAGEIII)  +  XLNGTH  PDT  762 
TANGI II)  =  TANGIII)  -  DEPREC I  I  I )  POT  763 

»»*»  COMPUTE  NET  BEFORE  DEPLETION.  PDT  764 
TEMP  =  GROSSIII)  -  XLOSSIII)  -  DEPRECIII)  -  DRILCSIII)  -CPC05T 1 1  I  I PDT  765 

DRILL  =  DRILL  +  DRILCSIII)  POT  766 

••»•   COMPUTE  COST  DEPLETION.  PDT  767 

H0LD2  =  INTANGIII)  *  01 LPRD I  I  I ) /RE30RS I  I  I  I  PDT  768 

RESORSIII)  =  RESORSIII)  -  OILPRDI II  I  PDT  769 

#»♦»   COMPUTE  PERCENTAGE  DEPLETION.  PDT  770 

IF  I  TEMP. LE.HOL  152  )  GO  TO  617  PDT  771 
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PEROPL  =  0.275  *  GROSS! II)  POT  772 

IF  (PEROPL. GT. (0.5  *  TEMPI)  PERDPL  =  0.5  *  TEMP  PDT  773 

IF  IPERDPl_.GT.H0L/D2)  OFPLET(!I)  =  PERDPL  •    ■  PDT  774 

IF  (PEROPL. LE.H0L02)  DEPLET(II)  =  H0LD2  POT  775 

GO  TO  623  PDT  776 

617  OEPLET(II)  =  H0L02    ■  PDT  777 

623  BTXNET(II)  =  TEM°  -OEPLET(II)  .  .  POT  77a 

INTANG(II)  =  INTANGIII)  -  DEPLET(II)  PDT  779 

IF  UNTANG!  II  J.LT.O.O]  ADD  =  ADD  -  INTANG(II)  POT  780 

IF  ( INTANGIII ).LT. 0.0)  INTANGIII]  =  0.0  PDT  7dl 

•♦»*   COMPANY  ACCOUNTING.  PDT  732 

621  TOTREV  =  TOTREV  +  REVN'Jcfll)  .  PDT  783 

TOTOIL  =  TOTOIL  *  OlLPRD(lI)  PDT  784 

TOTGAS  =  TOTGAS  +  GASPRD [ ! I )  PDT  785 

TOTG-*0  =  rOTG^O  +  GROSS!  II)  PDT  786 

TOTRYL  =  TOTRYL  +  ROYLTY(Il)  PDT  787 

TOTQPC  -    TOTOPC  +  OPCOST(II)  PDT  788 

TOTOPR  =  TOTDPR  +  DEPREC(II)  PDT  789 

TOTDPu  =  TOTOPL  +  DEPLET(II)  PDT  790 

TOTTA,\  =  TOTTAN  +  TANG (  I  I  )  PDT  791 

TOTINT  =  TOTINT  +  INTANGIII)  PDT  792 

OPCOST(II)  =  OPCOST(II)  +  DRILCSIII)  PDT  793 

602  CONTINUE  PDT  794 

MESES  =  ITF.MP  +  LENGTH  PDT  795 

IF  (RFORNDf I  I  .LT.0.1  )  GO  TO  706  PDT  796 

TEMP  =  PAYCAPil)  +  RTEARN(I)  PDT  797 

IF  (BONDS!  I  )  .GE.TEN'P)  REQ«ND!I)  =  0.0  PDT  798 

IF  (BONDS! I ) .LT. TEMP)  TEMP  =  TEMP  -  BONDS! I)  PDT  799 

IF  ITEMP.GE.REQBNDI I ) )  GO  Tu  706  PDT  8o0 
REQRND(I)  =  TEMP                                               ,     PDT  801 

706  DIVREC  =  DVRATE  *  INVEST! I)  *  TIMFAC  PDT  802 
INTPAY  =  (STLOAN(I)  *  STRATE  +  BONDS(I)  »  BDRATE)  *  TIMFAC  PDT  803 
IF  (GAINLT! I  ) .GT.XLOSLT!  I  I  )  GAINLTII)  =  GAINLT(I)  -  XLOSLT(I)  PDT  804 
IF  (GAINLT! I ) .GT.XLOSLT < I ) )  XLOSLT(I)  =  0.0  PDT  805 
IF  (GAINLT ( I ) .LE.XLOSLTI I ) )  XLOSLT(I)  =  XLOSLT(I)  -  GAINLT(I)  PDT  806 
IF  (GAINLT! I ) .LE.XLOSLT ( I ) )  GAINLT(I)  =  0.0  PDT  807 
CPGAIN  =  GAIMLTII)  +  OTHINC(I)  PDT  808 
CPLOSS  =  XLOSLT(I)  +  OTHLOS(I)  PDT  809 
CASH! I)  =  CASH! I)  +  DIVREC  -  INTPAY  +  TOTREV  »  CASHFT  PDT  810 
ACCREC(I)  =  ACCREC(I)  +  TOTREV  •  (1.  -  CASHFT)  PDT  811 
DIVPAY  =  DIVDND(I)  «  SHARES(I)  PDT  812 
XDRIL  =  DRILL  »  CASHFT  PDT  813 
ACCPAY(I)  =  ACCPAY(I)  +  DRILL  *  (1.  -  CASHFT)  PDT  814 
PENLTY  =  PENSELII.2)  ••  PENRVTII.2)  ♦  PENARDII.2)  +  PENDEP(It2)  PDT  815 
REDEEM  =  BONDS! I)  »  TIMFAC  *  .05  PDT  816 
ACCPAY(I)  =  ACCPAY(I)  +  EANDD(I)  »  (1.  -  CASHFT)  PDT  817 
CASH! I)  =  CASH! I)  -  TOTRYL  -  DELAYR  -  XDRIL  -  TOTOPC  -  PDT  818 

1  OPRESII)  -  ARDCOS(I)  -  REDEEM  -  EANCDII)  *  CASHFT  -  PENLTY  PDT  819 

INVEST!  I  I  =  INVEST!!)  +  REOINV(I)  PDT  820 

BONOS! I)  =  BONOS! I)  +  REOBNO(I)  -  REDEEM  PDT  821 

ADMIN  =  ASSETS! I)  •    .02  PDT  822 

IF  (ORCARY (  I  ) .LE. 0.0)  GO  TO  707  PDT  823 

X  =  ADMIN  *  ORCARY! I 1/ORBASE  *  0.1  PDT  824 

IF  !X.GT.ADMIN»0.5 )  X  =  ADMIN  »  0.5  PDT  825 

ADMIN  =  ADMIN  -  X  PDT  826 

707  IF  (LENGTH. EO.O)  ADMIN  =  0.0  PDT  827 
ORCARY(I)  =  ORCARYII)  +•  OPRES(I)  PDT  828 
CASH!  I)  =  CASH!  I)  -  REQINV(I)  ♦  REOBND(I)  ♦  REOLNS(I)  -  ADMIN  PDT  829 
TOTOPE  =  TOTRYL  ♦  DELAYR  +  DRILL  +  TOTOPC  ♦  TOTDPR  +  TOTDPL  PDT  830 

1  ♦  ABDCOS! I )  PDT  831 
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OPNET  =  TOTREV  -  TOTOPE '  PDT  832 

TOTINC  =  CPGAIN  +  DIVREC  POT  833 

OTHEXP  =  INTPAY  ♦  ADMIN  ♦  EANOD(I)  +  OPRES(I)  +  CPLOSS  .  PDT  834 

HOLD1  =  0.85  »  DIVREC  PDT  835 

PRETAX  =  OPNET  +  TOTINC  -  OTHEXP  -  HOLD1  -  GAINLT(I)  PDT  836 

STATAX  =  STAXR  *  TOTCRO  PDT  837 

FEDTAX  -  FTAXR  »  (PRETAX  -  STATAX)  .          PDT  838 

IF  (PRF_TAX-STATAX.LT. 0.0)  FFOTAX  =  0.0  PDT  839 

IF  <PR£TAX-STATAX.'_T.".'>)  OTHLOill)  =  OTHLOSII)  ♦  ARSIPRETAX  -     PDT  040 

1  STATAX )  PDT  841 

TAXLTG  =  .25  »  GAINLTU)  POT  842 

CASH.!)  =  CASH! I)  -  STATAX  -  FEDTAX  -  TAXLTG  PDT  843 

NETINC(I)  =  PRETAX  -  STATAX  -  FEDTAX  -  TAXLTG  +  GAINLT(I)  +  H0LD1  PDT  844 

1  +  ADD  *  XTEVP. I !  PDT  845 

HCLD2  =  RTEARMIl  PDT  846 

RTEARN!!)  =  RTEARN(I)  +  NETINC(I)  -  PENLTY  -  DIVPAY  PDT  847 

IF  (MESES.EQ.C)  GO  T0  709  PDT  848 

IF  (MOJOTEI  I)  .LT.1.0)  MQ'JOTE(I)  =  1.0  PDT  849 

MOUOTEII)  =  MQUOTE(I)  -  KQUOTE I  I )  *  IDIVRAS  -  DI VDND ( I ) ) /DI VBAS  *  PDT  850 

1  OUOTFT  PDT  851 

MQUOTF(I)  =  ■•■•QUOTE!  I)  +  RTEARN(I)  -  H0LD2 /RTEARN < I )  ♦  MOUOTE(I)    PDT  852 

IF  IMQUOTEl II ) .LT.1.0)  MOUOTEII)  =  1.0  PDT  853 

709  RIS'OK  =  SOLDST(I)  *  MOUOTEII)  PDT  854 

PAYCAPI.)  =  PAVCAPII)  +  PISTOK  PDT  855 

CASH! I)  =  CASH! I)  +  OISTO<  PDT  856 

SHARES (i)  =  SHARES! I)  +  SOLDSTII)  PDT  857 

IF  (SOLDSTI I ) .GT.O.O)  GO  TO  730  PDT  858 

SELL  -  O.u  »              PDT  859 

BISTOK  =  ABSIBISTOO  .               PDT  860 

GO  TO  731  PDT  861 

730  SELL  =  RISTOK  PDT  862 
BISTOK  =  >).0  •     PDT  863 

731  EOUITY  =  NETINC(I)  -  PENLTY  -  DIVPAY  +  SELL  -  BISTOK  PDT  864 
IF  (CASH  (I  J.GE.O.O)  GO  TO  7(i3  PDT  865 
EMFRG  =  AB5(C*SH(I)|  *  1.1  PDT  866 
CASH! I )  =  0.0  PDT  867 

703  STLOANU)  =  STLOAN(I)  +  REQLNSII)  +  EMERG  PDT  868 

ASSETS(I)  =  CASH!  I  )  +  ACCREC(I)  +  TOTTAN  +  TOTINT  +  INVEST(I)      PDT  869 

740  TOTLIB  =  ACCPAY(I)  +  STLOAN(I)  +  BONDS! I)  +  PAYCAP I  I  )  +  RTEARN(I)  PDT  870 

IF  (ABS(ASSETS( I l-TOTLIB) .GT.1.0)  GO  TO  741  PDT  871 

742  BOOK  =  (PAYCAP(I)  +  RTEARN! I ) ) /SHARES! I )  PDT  872 

DO  601  J  =  l.NCOPYS  PDT  873 

WRITE  (6.1)  PDT  874 

WRITE  (6.14T1 )  PDT  875 

WRITE  (6.3)  PDT  876 

WRITE  (6.1402)  (LEASE(K).  LFASEIK+28).  K=1.28)  PDT  877 

WRITE  (6.1)  PDT  878 

WRITE  (6.1501)  I.  MONTH.  NYEAR  PDT  879 

DO  622  K  =  1.MAX0WN.4  PDT  880 

Ml  =  LESSEE! I .K )  PDT  881 

M2  =  LESSEE! I. K+l)  PDT  882 

M3  =  LESSEE! I .K+2)  PDT  883 

M4  =  LESSEE! I .K+3)  PDT  884 

WRITE  (6.1502)  Ml.  M2»  M3.  M4  PDT  885 

IF  (Ml.LE.O)  Ml  =  1  PDT  886 

IF  (M2.LE.0I  M2  =  1  PDT  887 

IF  (M3.LE.0)  M3  =  1  PDT  888 

IF  (M4.LE.0)  M4  =  1  PDT  889 

WRITE  (6.15U3)  OILPRD(Ml).  0ILPRDIM2).  0ILPRDIM3).  0ILPRDIM4)  PDT  890 

WRITE  (6.1504)  GA5PRDIM1).  GASPRDIM2).  GASPRDIM3).  GASPRDIM4)  PDT  891 
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WRITE  (6.1505)  REVNUE(Ml).  REVNUEIM2).  REVNUEIM3).  REVNUEIM4)      POT  892 

WRITE  (6.1506)  ROYLTY(Ml).  R0YLTYIM2).  R0YLTYIM3).  R0YLTYIM4)      PDT  893 

WRITE  (6.15'J7>  GRGSS(Ml),  GR0SSIM2).  GR0SSIM3),  GROSSING)  POT  894 

WRITE  (6.1508)  OPCOST(Ml').  OPCOST (M2 )  .  0PC0STIM3).  ONCOST  (.V. )      PDT  895 

WRITE  (6.1509)  DEPKEC(Ml).  DLPRECIM2).  DEPRECIM3).  DEPRtC(M4)      PDT  696 

aRITE  (6.1510)  DEPLET(Ml).  DEPLETIM2).  DEPLET1M3).  DEPLETIM4)     'PDT  897 

WRITE  (6.1511)  8TXNETIM1).  BTXNET (M2 I »  BTXNETIM3).  BTXNETIM4)      PDT  898 

WRITE  (6.1512)  .Na'ELLSC-U  )  .  Y.vELLS  (  M2  )  .  NWELLSIM3).  NWELLS(Vi)      PDT  899 

622  CONTINUE  PDT  900 

WRITE  (6.1 )  •          PDT  901 

WRITE  (6.1600)  I,  VONTH,  NYEAR  PDT  902 

WRITE  (6.2)              .  ..                        PDT- 903 

WRITE  (6.1601)  PDT  904 

WRITE  (6.1602)  TOTREV  PDT  905 

WRITE  (6.16U3)  TOTREV.  CASH! I)  PDT  906 

WRITE  (6.160'.)  ACCREC(I)  PDT  907 

WRITE  16.1605]  tqttan  PDT  908 

WRITE  (6.1607)  TOTRYL.  TOTINT  PDT  909 

WRITE  (6.16.8)  DELAYR,  IWEST(l')  POT  910 

WRITE  16.1609]  DRILL.  ASSETS(I)  PDT  911 

WRITE  (6.1610)  roTOPC  PDT  912 

WRITE  (6.1611)  TOTDPR  PDT  913 

WRITE  (6.1612)  TOTDPl  PDT  914 

WRITE  (6.1613)  AfjDCOS(I).  ACCPAY(I)  PDT  915 

WRITE  (6.16141  T0T0PE.  STLOAN(I)  PDT  916 

WRITE  (6.1615)  OPNET.  BONDS! I)  PDT  917 

WRITE  (6.1616)  PAYCAP(I)  PDT  918 

WRITE  (6.1&17)  RTEAKNU)  PDT  919 

WRITE  (6.161d!  CPGA1N.  TOTLlrt  PDT  920 

WRITE  (6.1619)  DIVREC  ,             PDT  921 

WRITE  (6.1620)  TOTINC  PDT  922 

WRITE  (6.1621)  SHAREMI1  .  •               Pf)T  923 

WRITE  (6.1622)  MQ'.iOTFf  I  )  ,  nOO<  PDT  924 

WRITE  (6.1623)  CPL053  •    PDT  925 

WRITE  (6.1624)  IMTPAY  PDT  926 

WRITE  (6.1625)  ADMIN  PDT  927 

WRITE  (6.1626)  EANDDU  )  PDT  928 

WRITE  (6.1627)  0PRE3SII,  REuLNS(I).  REUBND(I)  PDT  929 

WRITE  (6.1C.28)  OTHEXP.  REQINV(I).  EMERG  PDT  930 

•  WRITE  (6.1629)  T0THR3.  PAY! I)  PDT  931 

WRITE  (6.1630)  H0LD1.  EMP3ENII)  PDT  932 

WRITE  (6.1631)  GAINLT(I),  STRIKE  PDT  933 

WRITE  (6.1632)  FEDTAX.  XLNGTH  PDT  934 

WRITE  (6.1633)  STATAX.  OWN  PDT  935 

WRITE  (6.1634)  TAXLTG.  OILALW  .                              PDT  936 

WRITE  (6.1635)  NETINC(I).  GASALW  PDT  937 

WRITE  (6,1641)  PDT  938 

WRITE  (6.1636)  PENLTY,  SALE  PDT  939 

WRITE  (6.1637)  DIVDND(I).  DIVPAY.  PAYAVG  PDT  940 

IF  (SOLDST(I).LT.O.O)  GO  TO  710  PDT  941 

WRITE  (6.1638)  SOLDST(l),  SELL.  BENAVG  PDT  942 

GO  TO  711  pDT  943 

710  TEMP  =  ABSISOLDSTI I ) )  PDT  944 
SOLDSTd  )  =  0.0  PDT  945 
WRITEI6.1638)  SOLDST(I),  SELL.  BENAVG  PDT  946 
WRITEI6.1639)  TEMP.  BI3T0K  PDT  947 
GO  TO  712  POT  948 

711  TEMP  =  0.0  PDT  949 
WRITEI6.1639)  TEMP.  BISTOK  PDT  950 

712  WRITE  (6.1640)  EQUITY  PDT  951 
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721 
722 

7?3 
72<* 

6j: 


725 


WRITE  (6,1641) 

WRITE  (6.1641) 

WRITE  (6.1641) 

WRITE  (6.164  1) 

WRITE  (6.1641) 

WRITE  (6.1650) 

IF  (PENSEL<I»2).LE.O.O 

WRITE  !6»1'JUU)  PENSELI 

IF  (PENUVTI 1,2) .LE.O.J 

WRITE  (6.1001)  »ENRVT( 

IF  [P-S^APO!  :  .2  )  .LE.0.0 

/.•R!TE  C6«10U2)  PENADDi 

\-     (PENDEP !  1 ,2  ULE.0.0 

a'RI^E  (6.1003)  p^\DEd  ( 


NCI 


=  NET! NCI 


1)  GO  TO  721 

I  .1  )  .  °ENSEL(  I  .2) 
1 !  GO  TO  722 

I  .  1  )  .  PENRVTI  1.2) 

I I  GC  T0    72  3 
1.1)  .  PENABDI  1.2) 
1  '  GO  T'J  72  4 

'.  .1  !  .  .PENDhP!  I  .2  ) 
XLNGTh 


CONTINUE 

M0\7H  -  MONTH  +  1 
IF  (NDEC<3.EC.  I  !  "-( 
V>EC<S  =  NOFCKS  - 
GO  T0  115 
«!R!"rE{7,e)  DRY,  01! 


■0  72: 


MONThi.WEA 

FINE.OPKIC 

RATEBD.BEN 

RiYjM  ,  ,<OYL  , 

0;,_AL:"  .GAS 

PM^COS.ACJ 

1  »NPLAY 

WRITE!  r  »  12  J 

rfaiTd<7»:i) 
ws:te(7,:i i 

1  XATEST 

*"R  ite:7»hi 

*^i*i.l  7  ,  11  ) 
1  EOCSFT 

Aril  Tel  7,11  ) 

00  .-411   I  - 

WRITE) 7,  13 i  CASH!  I  ) »AS 
1  STLOAM  i  )  .BONDS!  i  )  ,MQ 

WRITE! 7 ,13 )  PAYCAP!  i  )  , 
1  PAY!  I  )  ,  NET! DC!  i  ) .  EM 
811  CONTINUE 

WRITE! 7,lo) (  (LESSEE!  I  . 

WRITE(7,18)  LEASE 

WRITEI7.18)  NWELLS 

WRITE  17, 18) 

WRITE! 7,2b) 

WRITE! 7,27) 

WRITE(7,27) 

WRITE(7,25) 

WRITF(7,25> 

WRITE! 7,18 ) 

WRITE (7, 16) 

WRITE(7,25) 

WRITEI7.16) 

WRITEI7.il ) 

WRITEI7.11 ) 

WRITEI7.il ) 

WRITE(7,29I 

WRITE (7, 18) 

WRITE(7,25) 

WRITE(7,9) 

WRITE! 7,16) 

WRJTE(7,251 

WRITEI7.25) 

WRITE(7,11 ) 

WRITE! 7,16) 


NOFCKS 
R  ,lENGTi-i,VESES»NCOPYS»N 

C,uPK;c.E,AoLJNr7,r"TAAK,S 
i-"  I  T  »i(E>NitAo  ,  Kl  ArjG^  ,PAYl1A 

T EKMSrt  . TERMaP .OVKATE.OK 

AL.v.O^YnCS.CASDr'T  »GuGTF 


COS,  Sc  CCO  j,  KR  FLO  a',  AC  FLO 

CPA 
ORC 


SETS! I  )  .ACCREC! I )  .AC( 
uOTE! I ) 

RTEARN! I  )  .SHARES! i 
PDEN!  I  ) 


PLAY, 
TAXK, 

S.DiV 

TANG, 
T.FRC 

w.PMF 

Yl  I  )  . 
ARYt  I 


K)  .  K=1.20)  .  I=1,NPLAY) 


NPDATF 
RESORS 
EOLIFE 
EOAGE 
TANG 
INTANG 
IELECT 
VCFACT 
ACRES 
GEOFAC 
LESFAC 
TIME 
OZERO 
OZERO 
NO 

RIDMIN 
(WELNUM! I .1 
IWELNUM! I . 
EOCOST 
PINT 
VISCTY 
FVF 


)  .  1  =  1  .1000) 
2).  1=1.1000) 


PDT  952 

POT  953 

PDT  954 

PDT  955 

. PDT  956 

PDT  957 

POT  958 

PDT  959 

PDT  960 

PDT  961 

PDT  962 

PD^  963 

PDT  964 

PDT  y65 

PDT  966 

PDT  967 

PDT  966 

POT  969 

PDT  9  70 

POT  971 

PDT  972 

.VAXOn'N.LASTNN' 

PDT  973 

oT<FACVARCOS 

PDT  V74 

bAS ,0K8ASE , 

PDT  975 

PDT  976 

OR  I  i\Tu,K<CCGS 

PDT  0  77 

FAC  ACOFAC, 

PUT  97a 

PDT  979 

L0W»SKFL0W»0ECLNPDT  VoO 

t 

P;T  981 

INVEST! I ) , 

PDT  982 

PDT  983 

) .OTHLOS!  I )  , 

PDT  964 

PDT  965 

PDT  966 

PDT  987 

PDT  988 

PDT  989 

PDT  990 

PDT  991 

PDT  992 

PDT  993 

PDT  994 

PDT  995 

PDT  996 

PDT  997 

PDT  998 

PDT  999 

PDT1000 

PDT1001 

PDT1002 

PDT1003 

PDT1004 

PDT1005 

PDT1006 

PDT1007 

PDT1008 

PDT1009 

PDT1010 

PDTlOll 
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WRITE  (7,25)  GORINT  PDT1012 

JUMP  =  1  PDT1013 

GO  TO  101  PDT1014 

C  PDT1015 

luOO  FORMAT  (1X.32HYOU  HAVE  ATTEMPTED  TO  SELL  LEASE ,F4. 0 ,82HAN  MAYBE  OTP0T1016 

1HERS  WHICH  YOU  DO  NOT  OWN.   YOU  HAVE  BEEN  PENALIZED  A  TOTAL  AMOUN TPD T 10 1 7 

2  OF  S.F9.2/17H  FOR  THIS  ACTION. /I  PDT1018 

1001  FORMAT  I1X.34HY0U  HAVE  ATTEMPTED  TO  REVERT  LE ASE »F4.0 t IX .77HAN  MAYPDT1019 
1BE  OTHERS  WHICH  YOU  DO  NOT  OWN.  YOU  HAVE  BEEN  PENALIZED  A  TOT AL.  APDT 1020 
2MOUNT/5H  OF  S,F9.2»17H  FOR  THIS  ACTION./)  PDT1021 

1002  FORMAT  UX.35HYOU  HAVE  ATTEMPTED  TO  ABANDON  LEASE . F4. 0 » IX , 77HAN  MAPDT1022 
1Y6E  OTHERS  WHICH  YOU  UO  NOT  OWN.  YOU  HAVE  BEEN  PENALIZED  A  TOTAL  PDT1023 
2AMOUNT/5H  OF  S,F9.2»17H  FOR  THIS  ACTION./)  PDT1024 

1003  FORMAT  UX.80HYOU  HAVE  ATTEMPTED  TO  MAKE  AN  UNAUTHOR I  ZED  'CHANGE  INPDT1025 
1  METHOD  FOR  COMPUTING  DEP^EC » 1 uH I  AT  I  ON  F0R»F4.u.lBH  AND  MAYBE  0THEPDT1026 
2RS./23H   YOU  HAVE  BEEN  FINED  $ . F 1 0. 0 , 1 6HF0R  THIS  ACTION.)  PDT1027 

1100  FORMAT  (43X.43HLEASE  DEVELOPMENT  REPORT  FOR  COMPANY  NUMBER. 14/ >    PDT1028 

1101  F0RMATI/47X.32HDRILLI.NG  REPORT  FOR  LEASE  NUMBER. 14//  PDT1029 

1  1X»5HM0NT.H»4X»12HWELL  DR I LLED »4X »6HSTATUS,4X , 17HI N I T I AL  FLOW  RATEPDT1030 

2  ,4X»16H  INITIAL  ?RE5SURE»4X,18HPR0BUCT  IVlTY  I NDEX ,4X ,9HV I SCOS I T Y ,4XP0 T103 1 
3,17HFORM.  VOL.  FACTOR)  PDT1032 

1103  FORMAT  (1H  , I  3 »3X . 16, 7  A , A6 ,7X ,F10  .0  )  PDT1033 

1104  FORMAT  [/46X»34HFRACTURING  REPORT  FOR  LEASE  NUMBER. 14/1  PDT1034 

1105  FORMAT  (1X.21HT0TAL  WcLLS  FRACTURED , F5 .C » 3X , 1 6HAT  A  TOTAL  COST  OF.PDT1035 
1  F6.0/)  PDT1036 

1106  FORMAT  ( /4<»X , 3 7HAC I D  TREATING  REPORT  FOR  LEASE  NUMBER • I*/ )  PDT1037 

1107  FORMAT  (1X.19HT0TAL  WELLS  TREATED  ,  F 5 .0  ,  3X , 18HAT  A  TOTAL  COST  OF,  PDT1038 
1  Fo.O/)  PDT1039 

1109  FORMAT  ( 1H  ',  I 3»bX, I  6 , 7X , A6 ,7X , F 10 .0 , 1 1 X »F 10.0 »9X , F 10.2 » 10X »F8 . 2 ,  PDT1040 
1  8X.FI0.2)  PDT1041 

1110  FORMAT  (1X.4BH0NE  WELL  WAS  FRACTURED  AND  TESTED  AT  A  COST  OF  $,  PDT1042 
1  F10.0.59H.  THE  FRACTURE  TREATMENT  DID  NOT  IMPROVE  WELL  PERFORMANPDT 1043 
2CE./)  PDT1044 

1111  FORMAT  (lX.blriQNE  aELL  WAS  ACID  TREATED  AND  TESTED  AT,  A  COST  OF  S»PDT1045 
1  F10.0.55H.   THE  ACID  TREATMENT  DID  NOT  IMPROVE  WELL  PERFORMANCE .) PD T 1046 

1112  FORMAT  ( /43X.40HPUMP  INSTALLMENT  REPORT  FOR  LEASE  NUMBER. 14//      PDT1047 

1  1X.34HPUMPS  WERE  INSTALLED  ON  A  TOTAL  OF.F6.0,  PDT1048 

2  27H  WELLS  AT  A  TOTAL  COST  OF  $,F10.0)  ■    PDT1049 

1113  FORMAT  I/1X.57HA  SECONDARY  RECOVERY  SYSTEM  WAS  INSTALLED  ON  LEASE  PDT1050 
1NJMHER, I4.21H  AT  A  TOTAL  COST  OF  S.FIO.O)  PDT1051 

1114  FORMAT  flH  , I 3.dX, lb, 7X , A6  ,7X , F 10  .0 » 1 IX  ,F10.0 »9X  ,F10. 2 )  PDT1052 

1401  FORMAT  (26X./9HTHIS  IS  A  LIST  OF  LEASES  BY  NUMBER  THAT  ARE  FOR  SALPDT1053 
IE  BY  THE  GAME  ADMINISTRATOR.)  PDT1054 

1402  FORMAT  I 42X , I  3 ,42 X , I  3 )  PDT1055 

1501  FORMAT  (23X.32HLEASE  REPORTS  FOR  COMPANY  NUMBER , 14. 3X ,  PDT1056 
1  28HFOR  PERIOD  ENDING  WITH  MONTH , I  5 , 2X »6H  OF  YEAR , I  4 , 1H. / )         PDT1057 

1502  FORMAT  (  1H  ,4(4X,12HLEASE  NUMBER,  116))  PDT1058 

1503  FORMAT  (1H  ,M4X,  19H01L  PRODUCED  ( B3LS )  ,F9.0  )  )  PDT1059 

1504  FORMAT  (1H  ,4(4X.19HGAS  PRODUCED  IMSCF )  ,F9 .0 )  )  PDT1060 

1505  FORMAT  (  1H  ,4  ( t*X  ,  1 8HRE  VENUE  EARNED  I5),F10.0))  PDT1061 

1506  FORMAT  (1H  ,4 ( 4X , 1 HHROY AL T I ES  PAID  ($),F10.01)  PDT1062 

1507  FORMAT  (1H  ,4 ( 4X , 1 6HGR0SS  INCOME  ( S ) ,2 X  ,F 1 0.0  )  I  PDT1063 

1508  FORMAT  ( 1H  ,4(4X,19H0P  ♦  DRILL  COST  (S)»F9.0)1  PDT1064 

1509  FORMAT  UH  ,4 ( 4X , 1 6HDEPREC ! A T I  ON  ( S ) ,2X  ,F 10.0  )  I  PDT1065 

1510  FORMAT  (1H  ,M4X,  13HDEPLETI0N  (  $  )  ,  5  X  ,F  10  .0  )  )  PDT1066 

1511  FORMAT  (1H  ,M4X,18HNET  BEFORE  TAX  (Sl.FlO.U))  PDT1067 

1512  FORMAT  UH  ,4(4X,15HwELLS  PRODUC I NG , 3 X , I  10 ) / )  PDT1068 

1600  FORMAT  (  19X.41HFINANCIAL  STATUS  SHEET  FOR  COMPANY  NUMBER » 1 3 ,34H  FPDT1069 
10R  THE  PERIOD  ENDING  WITH  MONTH, 13, 9H   GF  YEAR, 13)  PDU070 

1601  FORMAT  ( 25X.16HINCOME  S T AT EMEN T  ,2 4X , 1H I ,2 7X  ,  1 3HBAL ANCE  SHEET/65X,  PDT1071 
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1  1HI/25X.16HOPERATING  I NCOME .24X . 1H I .30X .6HASSETS /65X . 1H I )  PDT1072. 
1632  FORMAT  (  1X.40HREVENUE  FROM  SALE  OF  OIL  AND  NATURAL  GAS.11X.1HS.    PDT10/3" 

1  F11.0.2H  I  )          i  P0UI174. 

16U3  FORMAT  (7X.22HTOTAL  OPERATING  I  NCOME  .2  AX  ,F  1 1  .  0  .2H  I,  PDT1075 

1  3X.12HCASH  ON  HAND. 36X. 1H$. Fll. 0)  .     PDT1076 

1604  FORMAT  (65X.1HI.  PDT1077 
1  3X.19HACCOUNTS  RECEIVABLE. 30X. Fll. 0)  PDTI076 

1605  FORMAT  [ 24X . 1SH0PERAT I NG  EXPENSES  .23X , 1H t ,  PDU079 
1  3Xil8HTANGIriLE  E0UIPMENT.31X.F11 .0)                   .    .  PDTioao 

1607  FORMAT  (  lX,14Hi\0YAL'rIES  PA  I D . 36X » Fl 1 .0 »2H  I,  PDUOttl 

1  3X.35HINTANGIRLE  LEASE  INVESTMENT  AT  COST  .  1« »F 1 1 .0 )  PDT1062" 

1608  FORMAT  UX.13HDELAY  RENTALS. 39X.F 11.0. 2H  I.  PDT1C33 
1                 3X.19KOUTSIDE  INVESTMENTS. 3uX»F11.0)  PDTiOoV 

1609  FORMAT  ( IX  *14HDR!LLI.\G  COSTS  .38X.FU.0.2H  I,  PDT1035 
1  9X.12HT0TAL  ASSETS. 31X  »F"1 1.0)  PDT10bo< 

161U  FORMAT  CX.lihOPERATI  NG  COSTS. 37X  .F11.0.2H  I)  PDT1037 

1611  FORMAT  (1X.:2HDE?RECIATION>40X.FI1.0.2H  I.  PDTIC06 

1  ?qx » ; ihliaril ; T  :l"s i  PDTmeo 

161?  FORMAT  t  1X,<)-i:h?lEtI0X.<*3X.F:  :   .  J,2H  I)  PDT1090 

1613  FORMAT  (lX.lYhABAMOOMMSNT  C0STS»35X.F1 I.0.2H  I.  PDT1091 
1  3X.16HACCCUNTS  PAVA3LE.33X.F1 1.0 )  PDT1092 

1614  FORMAT  ( 7X .24HT0TAL  OPERATING  EXPENSES. 22X .F11.0.2H  I.  PDT1093 
1  3X.16KSHCR7  TERM  LOANS.  33X»rl  1.0  )  PDT1094 

1615  rO*y.,\r     tlX  .20ti.\i;T  OPERATING  INC0ME.31X » 1h$ .F11.0 »2H  I.  PDT1095 
1  3X»5n80NDS»<*4X,Fl  i.U  ]  PDT1C96 

1616  FORMAT  i65X»lHI.  PDT1097 
1  3X.15HPAID  IN  CAPITAL.34X.F 11.0)  P[)T109b 

1617  FORMAT  1 27X » 12fiOTHEK  INCOME.26X »1HI »  P0T1099 
1  3X.17HRETA1NED  EARNI NGS.32X .Fll .0 )  P0T11C0 

1613  FO'rtv.n     t  1X.13HCAPITAL  GA  f  NS  .39X  .Fll  .0  »2H  I.        '  PDTilOl 

1  9X.17HT0TAL  L I  A&I  LI  T  I  ES.26X.F  1 1 .."))  ,   PDT1102 

1619  FORMAT  UX.iohDIVIDENDS  RECEIVED. 34X.F1 l.C. 2H  I)  1   PDT1103 

162u  FORMAT  l7\,ieH707AL  OTnER  INCOME. 26X .Fl 1 .0 »2H  I)  PDT1104 

1621  FORMAT  (65X»1HI.                                               .  PDT1105 
1                 3X.34HSHARES  OF  COMMON  STOCK  OUTST AND  I  NO »2X .F10.0 ) PD 7 i 106 

1622  FORMAT  (  2oX » 14H0THEK  EXPENSES  .  2  3X  ,  1  H  I  ,  P0T1107 
1  3X»i4HMA.\<ET  QUOTE  > »F 6 .2 -oX  .  1 CHB00<  V ALUE . 2X . 1HS .F8 . 2 )  PDT1108 

1623  FORMAT  (  IX  ,  i^nCAP  I  7AL  LOOSES  .  37a  ,  1HS  ,F  1 1  .0  .2H  I)  PDT1109 

1624  FORMAT  (  1X.13HINTEREST  PAI D . 39X . F 1 i . J , 2H  I)  PDTlllO 

1625  FORMAT  ( IX  .23HADM IN  I S7RA T I VE  OVERNE AD »29X » F 1 1 .0 » 2H  I.  PDT1111 
1  21X.25HDECISIO.YS  Arid  ENVIRONMENT)  PDT1112 

1626  FORMAT  ( 1 X .2 7HEXPL0RAT ION  AND  DEVELOPMENT .25X .Fll . 0 »2H  I)  PDT1113 

1627  FORMAT  ( IX . 19H0PERATI ONS  RESEARCH .33X .Fll .0.2H  I.  PDT1114 
13X.16HSH0RT  TERM  LOANS. 5X » 1HS .F 10 .0 »2X .5nB0NDS» 10X . 1H» .F10.0)  PDT1115 

1628  FORMAT  (7X.20HTOTAL  OTHER  EXPENSES. 26X .F 1 1 . 0 . 2H  I.  PDT1116 
13X  .16HINVESTMEN7S  MADE »6X ,F1 0. 0 .2 X . i 6HEMERGENC V  LOANS* . F 10 . 0  I  PDT1117 

1629  FORMAT  (65X.1HI.  PDT1118 

1  3X.22HLABOR  UTILIZED  ( HOURS ) . IX . F9 .2 ♦ 2X . 16HL ABOR  RATE/HR.  S.  PDTU19 

2  F10.2  )  PDT1120 

1630  FORMAT  (1X.25HLESS   DIVIDEND  DEDUCT  IONS .27X ,F 1 1 .0 .2H  I.  PDT1121 
I  3X.20HFRINGE  RENFF I TS/HOUR . 2X . F 1 0. 2 )  PDT1122 

1631  FORMAT  (7X.14HL0NG  TERM  GA IN . 32X ,F 1 1 .0 .2H  I . 3X  ,2 1HPR03 AB I L I TY  OF  SPDT1123 
1TRIKE.1X.F10.2)  PDT1124 

1632  FORMAT  (  1X.1 1HFEDERAL  T AX ,41X , F 1 1 .0.  2H  I.  PDT1125 
1  3X.22HPERIOD  LENGTH  (MONTHS  )  .2X »F8  .0  )  PDT1126 

1633  FORMAT  (1X.9HSTATE  T AX .43X  .F 1 1 . 0 . 2H  I*  PDT1127 
1  3X.22HNUMRER  OF  'LEASES  OWNED. 2X  .F8.0  )  POT1128 

1634  FORMAT  I1X.22HTAX  ON  LONG  TERM  GA INS.30X ,F 1 1 .0.2H  I,  PDT1129 
1  3X.24H0IL  ALLOWABLE  3BLS/M0NTH ,F 8. 0 )  PDT1130 

1635  FORMAT  (7X.1UHNET  INCOME . 36X .F 1 1 . 0 . 2H  I.  PDT1131 


213 


1  3X»2«*HGAS  ALLOWABLE  VSCF/MONTH.F8.  0  ) 

1636  FORMAT  (  IX  .  19HPENALT  1  ES  AND  F INES  .32X . 1H$ .Fl 1 .0 t2H  I. 
1  3X.35HNUMBER  OF  LEASES  AVAILABLE  FOR  SALE . 15X .F I  0.0 > 

1637  FORMAT  I  IX  .  18HDI VIDEND  PER  SHARE  .  IX  .  1HS  .F10.2  »4X  .  1  bHAMOUNT 
1 T  .  3  X  .  F 1 1  .  0  ,  ?  H  I  . 

HAVE-.AGE  INDUSTRY  WAGE  RATE  .22X.  1H5  .Fl  1  .2  ) 
I  1X»17HC0MMQN  STOC<  SOLD»3X»F10.'o  »4X»  15HAMOUNT  RECEL, 

•  2H  : . 

HAVEKAGE  INDUSTRY  FRINGE  BENEFIT  RATE  .13X  ,F1 1  .2  ) 

(lXtlbHSTOCK  PURCHASED»5X»F1G.O*4X»15HAMOUNT  PAID  OUT.3X. 
,2rt     I  ! 


PDT1132 

PDT1133 

PDT1134 

PAID  OUPDT1I35 

lT»3X.rll.0,2H  I.  PDT1136 

2  3X.26HAVE~.AGE  INDUSTRY  WAGE  RATE  ,22X  ,  1H5  .Fl  1  .2  )  PDT1137 

1638  FORMAT  I  IX >17HCOMMQN  STOC<  SO.D  OX.  r  IO.l- »4X  .  15HAMOUNT  RECE I VED »3X .PD Tl 1 38 

1  F11.0.2H  ! .  PDT1139 

2  3X»36HAVEKAGE  INDUSTRY  FRINGE  BENEFIT  RATE . 13X » Fl 1 .2 >  PDTli^O 

1639  format   dx.ibHsrocK  purchased»5x»fig.o»4x»i5hamount  paid  out,3x»     pdtii^i 

1  F11.0»2H  I !  PDU142 

164J  FORMAT  (1X.3IHCHANGE  IN  STOCKHOLDERS-  E Jj I T Y .2lX .Fl 1 .0 » 2H  I)       PDT1143 

1641  FORMAT  (65X.1HI)  PDT1144 

16bG  FORMAT  <6b(2H  -) /62X,7HREyAR<S/)  PDT1145 

999  CALL  EXIT  '  PDTI146 

ENC  PDT1147 


SUBROUTINE  RANDNO  ( RNUM )  P0T1148 

I  =  RNUM  *10.0  '  ^        POT  11 49 

CONTINUE  PDTllbO 

RNUM  =  (RNUM  ♦  100.  +  3.)*»?                                          PDT1151 

X  =  RNUM  ♦  .001  PDT1152 

M  =  X  PDT1153 

Y  =  M  PDT1154 

RNUM  =  X  -  Y  PDTllb5 

J  =  RNUM  *  10.0  PDT1156 

IF  (I.EO.J)  GO  TO  1  PDTllb7 

RETURN  PDT1158 

END  PDT1159 


APPENDIX  C 
Program  Output 
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APPENDIX  D 
Listing  of  the  Carryover  and  Decision  Decks 


SAMPLE  CARRYOVER  DECK  FOR  PAYDIRT 
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APPENDIX  E 
Formula  Derivations 


2?8 


Derivation   of   the   Equation  for  the  Decline   Curve 


The  derivation  of  the  decline   curve   is  b^gun  by  starting  with 
the  equation  for  the  slope."1  of  a  curve: 

D  =  -flq/dt 


VThere : 


D  =  the  slope  of  the  curve. 


Rearranging  the  equation  gives : 

dq 
-D  dt  =  ~*  . 

Integrating  the  equation  above  within  the  limits  of  t  =  0  to  t  =  t, 

and  q  =  qQ  to  q  =  q  : 


-Dt 


■  In  q 


which  is : 


-Dt  » 


In  qt  -  Ln  qQ  =  In  ^  . 


When  the  exponential  of  both  sides  of  the  equation  is  taken,  the  result  is 

££    -Dt 
— k  =  e 

% 

Rearranging  this  equation  provides   the  equation  desired: 


qt  "  q0  e 


-Dt 
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The  Derivation  of  the  Equation  to  Calculate  Initial  Flow  Rate 

The  derivation  of  the  equation  to  calculate  the  initial  flow 
rate  when  the  recoverable  reserves  and  the  decline  curve  are  given, 
begins  with  the  equation  for  the  decline  curve  which  is : 

-Dt 
qt  =  qo  e 

If  a  low  limit  for  q.    is  picked  so  that: 

\lm  limit)  "  ^0  X  FACT0R 

TChere : 

FACTOR  =  some  small  fraction. 

Solving  for  q+  at  the   lovr  limit  gives: 

qQ  FACTOR  =  qQ  e"Dt 

and  by  dividing  both  sides  by  q^  provides: 

FACTOR  =  e~Dt     , 
The  next  step  is   to  solve  for  t  at  the  low  limit  which  is: 

t  -   In  FACT0R/-D,    . 

The  reserves   in  the  reservoir  ar°  equal  to: 

'        -Dt 


'0 


Reserves   =   /  q  e' 
/q     0 

'.There : 

t  =  the   time  at  the  low  limit. 

Integrating  and  substituting  the  value   obtained  for  t  results   in: 

Reserves   =  5  e^  FACT°2     +  q0 

IT 

=  ^  (1.    -  FACTOR)      . 
D 


Solving  for  q^  gives : 

q  =  (Reserves)  (D) 
U   (1.  -  FACTOR J 


I 


